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IMPORTANT  NOTICE 


The  specific  components  selected  for  the  system  were  chosen 
on  the  basis  of  suitability,  availability,  and  cost  at  the  time 
of  procurement.  They  do  not  necessarily  represent  the  only 
possible  choice  or  even  the  best  choice.  The  National  Bureau  of 
Standards  states  only  that  they  were  used  in  the  equipment 
described  here.  Substitution  of  nominally  equivalent  components 
meeting  the  same  specification  should  cause  no  difficulty; 
however  NBS  has  not  tested  all  such  possible  choices. 


2.0  GHZ  TO  4.0  GHZ  AUTOMATED  RADIOMETER 


OPERATION  AND  SERVICE  MANUAL 


BY 


GEORGE  J.  COUNAS 


The  equipment  described  by  this  manual  is  the  2.0  to  4.0  GHz 
subsystem  of  the  automated  radiometer.  This  section  of  the 
multiband  automated  radiometer  is  a coaxial  total  power 
radiometer  which  implements  a six-port  reflectometer  for 
impedance  characterization  and  correction  and  utilizes  a newly 
developed  broadband  cryogenic  noise  standard.  NBS  Noise 
measurement  capability  in  this  frequency  band  has  been  expanded 
by  the  addition  of  this  system  which  adds  continuous  frequency 
coverage  to  existing  services  along  with  the  capability  to 
measure  cryogenic  noise  sources.  This  manual  describes  the 
2.0  to  4.0  GHz  frequency  band  of  the  NBS  automated  radiometer  and 
provides  operation  and  service  information. 

Key  words:  automated;  broadband  cryogenic  noise  standard;  six-port 
reflectometer;  total  power  radiometer. 
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INTRODUCTION 


1 . 


An  intensive  effort  has  been  made  to  update  the  NBS  noise 
measurement  services  to  capitalize  on  the  technological  advances 
made  in  computer  aided  measurements  in  recent  years.  A noise 
measurement  system  has  been  designed  to  provide  noise 
measurement  services  in  the  following  frequency  ranges:  (1)  30 
and  60  MHz,  (2)  0.35  to  0.50  GHz,  (3)  0.5  to  1.0  GHz,  (4)  1.0  GHz 
to  2.0  GHz,  (5)  2.0  to  4.0  GHz,  (6)  4.0  to  8.0  GHz,  (7)  8.0  to 

12.0  GHz,  and  (8)  94.0  GHz.  The  system  described  here  is  coaxial 
except  for  the  last  section  listed  which  is  constructed  in  the 
WR-10  waveguide  size.  Refer  to  figure  1 which  is  a simplified 
block  diagram  of  the  system  as  it  will  exist  when  all  bands  are 
completed.  The  30  and  60  MHz  automated  radiometer  shown  at  the 
bottom  of  the  figure  was  completed  in  1981  [1]  and  the  2.0  to 

4.0  GHz  section  of  the  NBS  automated  radiometer  has  now  been 
constructed.  Development  of  all  other  bands  shown  is  in 
progress . 

Although  the  text  of  this  manual  will  deal  principally  with 
the  2.0  GHz  to  4.0  GHz  frequency  band  of  the  automated 
radiometer,  some  documentation  of  the  instrumentation  used  with 
the  other  frequency  bands  shown  in  Figure  1 will  be  included. 
This  will  provide  continuity  and  ready  access  when  all  bands  are 
comp le  t ed  . 

Prior  to  the  installation  of  the  2 to  4 GHz  automated 
radiometer  described  in  this  manual,  noise  calibration  services 
in  this  frequency  band  have  relied  on  the  manually  tuned, 
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AUTOMATED  RADIOMETER  SIMPLIFIED  DIAGRAM 


mod  if ied  , 


switching 


radiometer. 


This  modif ied 


switching 


radiometer  is  a precision  noise  measurement  system  which  provides 
an  accurate  determination  of  the  noise  temperature  of  the  device 
(noise  source)  under  test  [2,3].  However,  in  its  present  form, 
this  type  of  noise  measurement  system  has  some  limitations.  Some 
of  these  are  summarized  as  follows: 


(1 ) 

It  has  been  necessary  to  use  a transfer  standard  to 
compare  the  device  being  calibrated  with  the  primary 
noise  standard.  This  has  limited  the  frequency 
coverage  to  those  selected  frequencies  at  which  the 
transfer  standard  was  calibrated. 

(2) 

The  present  switching  radiometer  system  is  not  able  to 
measure  cryogenic  noise  standards. 

(3) 

Since  the  switching  radiometers  are  constructed  in  a 
waveguide  configuration,  coaxial  measurements  can  be 
made  only  at  reduced  accuracy  because  of  adaptor 
uncertainties  or  not  at  all  if  the  adaptor  uncertainty 
cannot  be  determined. 

(4) 

Because  the  switching  radiometers  are  manually  tuned 
and  operated,  measurements  made  with  these  systems 
take  approximately  four  times  longer  than  those  made 
with  the  automated  radiometers. 

With 

the  addition  of  the  2.0  to  4.0  GHz  automated 

radiometer,  henceforth  referred  to  as  the  automated  radiometer, 
the  above  mentioned  limitations  have  been  eliminated.  The 
automated  radiometer  provides  for  direct  comparison  of  the  noise 
source  being  measured  with  broadband  cryogenic  and  ambient 
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standards,  thus  eliminating  the  need  for  transfer  standards  with 
their  calibration  uncertainties  and  frequency  limitations. 

Physically  incorporated  into  this  radiometer  is  a 6-port 
reflectometer  which  is  used  to  measure  the  complex  impedances 
associated  with  the  device  under  test  and  the  measurement  system 
itself.  Using  this  impedance  information,  computer  correction  of 
mismatch  errors  is  accomplished  and  this  eliminates  the  need  for 
tuning.  Since  the  noise  standards  used  to  make  measurements  are 
broadband  and  mismatch  error  can  now  be  corrected  without  tuning, 
measurement  of  noise  sources  at  any  desired  frequency  in  the  band 
is  now  possible.  The  standards  and  the  system  measurement  ports 
are  coaxial;  this  permits  the  calibration  of  coaxial  noise 
sources  without  the  adaptor  uncertainties  described  for  the 
waveguide  system.  This  system  could  be  used  to  calibrate 
waveguide  noise  sources  without  using  an  adaptor  if  a waveguide 
cryogenic  standard  were  implemented.  In  addition,  the  automated 
radiometer,  as  its  name  implies,  is  an  automatic  system  and,  once 
certain  required  calibrations  are  performed,  can  make  consistent 
measurements  without  operator  intervention.  This  speeds  up  the 
measurement  process  without  sacrificing  accuracy,  allows  data 
acquisition  not  possible  with  a manual  system,  and  makes  possible 
a more  in-depth  statistical  analysis. 
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2.  GENERAL  THEORY  OF  OPERATION 


A.  MEASUREMENT  PHILOSOPHY 

Since  the  automated  radiometer  has  the  capability  to  measure 
and  store  impedance  information,  software  and  measurement 
sequences  have  been  designed  to  take  full  advantage  of  this  fact. 
The  emphasis  is  on  the  automatic  correction  of  all  possible 
errors  and  the  automatic  evaluation  of  system  performance  during 
the  normal  course  of  measuring  a noise  source.  Correction  of 
mismatch  error,  port  asymmetry  (efficiency)  error,  check  standard 
evaluation,  and  a check  of  system  linearity  are  accomplished 
automatically  in  a normal  measurement  sequence. 

B.  DESCRIPTION  OF  THE  MEASUREMENT  SYSTEM 

Figure  1 shows  that  the  2.0  to  4.0  GHz  automated  radiometer 
is  but  one  segment  of  a multiband  measurement  system.  The  30  and 
60  MHz  coaxial  system  and  the  WR-10  waveguide  system  share 
hardware  with  the  other  bands  but  have  completely  different 
measurement  ports  and  use  measurement  procedures  which  are 
outside  the  scope  of  this  manual.  The  30  and  60  MHz  system 
manual  is  already  published  and  the  WR-10  waveguide  system  will 
be  covered  in  a separate  manual  when  it  is  completed. 

Figure  1 is  a simplified  block  diagram  of  the  entire 
measurement  system.  The  only  band  to  be  covered  in  detail  at  this 
time  is  the  2. 0-4.0  GHz  band  but  the  operation  of  the  other 
bands  is  similar  and  hardware  and  software  are  shared  whenever 
possible. 

Figure  2 is  a functional  block  diagram  of  the  noise 
measurement  system  reduced  to  its  simplest  form.  To  calibrate 
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SIMPLIFIED  BLOCK  DIAGRAM  OF  NOISE  MEASUREMENT  SYSTEM 


or  find  the  output  noise  temperature  of  the  device  under  test 
(D.U.T.),  the  output  noise  powers  of  this  device,  the  ambient 
standard,  and  the  cryogenic  standard  are  amplified,  filtered,  and 
measured  in  sequence.  Because  the  noise  temperatures  of  the  two 
standards  are  accurately  known,  the  noise  equations  detailed  on 
pages  50-53  of  this  manual  can  be  used  to  compare  the  output 
noise  powers  and  noise  temperatures  of  the  two  standards  with  the 
output  noise  power  of  the  D.U.T.  resulting  in  the  determination 
of  the  output  noise  power  of  this  device.  These  noise  power 
comparisons  are  made  by  using  the  automated  radiometer  as 
described  in  the  following  paragraphs.  In  the  ensuing  discussion 
all  switches  are  under  computer  control  unless  otherwise  noted. 
As  can  be  seen  in  Figure  1,  the  frequency  band  of  interest  is 
selected  by  actuation  of  the  input  switches.  At  this  time,  the 
block  labeled  6-Port  Calibration  is  accessed  by  the  switch 
shown.  The  six  port  reflectometer  is  calibrated  and  then  used  to 
measure  the  complex  impedance  of  the  system  input  ports,  the 
D.U.T. , and  the  standards.  This  information  is  stored  by  the 
computer  and  then  the  input  source  is  switched  to  the  noise 
measurement  position  as  shown  in  the  figure.  In  the  proper 
sequence  then,  the  noise  power  from  the  D.U.T.  and  the  standards 
is  amplified  at  the  microwave  frequency,  mixed  with  power  from 
the  local  oscillator  to  obtain  the  intermediate  frequency  (I.F.), 
filtered,  amplified  again,  and  measured.  To  simplify  the  diagram, 
both  the  standards  and  the  D.U.T.  are  represented  by  the  single 
block  at  the  left  (labeled  D.U.T.).  The  noise  temperature  of  the 
D.U,T.  is  then  calculated  by  the  computer.  This  calculated  noise 
temperature  is  corrected  for  mismatch  by  using  the  complex 
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functional  diagram  of  the  automated  radiometer 
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MEASUREMENT  PORTS 


impedance  information  stored  earlier, 


and  the  final  noise 


temperature  of  the  D.U.T.  is  tabulated  by  the  computer  along 
with  a tabulation  of  known  system  errors  and  measurement 
statistics.  Figure  3 is  a functional  diagram  showing  the 
automated  radiometer  in  more  detail.  The  2.0  to  4.0  GHz  6-port 
reflectometer,  the  band  switches,  the  switching  between  the 
standards  and  the  D.U.T.  , and  more  detail  of  the  amplifying, 
mixing,  and  power  measurement  is  shown.  In  this  system,  the 
local  oscillator  is  a synthesizer  which  is  tuned  to  the 
calibration  frequency  by  the  computer.  Only  the  noise  power  that 
is  within  the  bandpass  of  the  I.F.  amplifier  and  filter  is 
measured  and  so  the  local  oscillator  frequency  determines  the 
measurement  frequency.  Refer  to  Figxire  4.  This  is  a complete 
block  diagram  of  the  automated  radiometer  and  shows  the 
peripheral  equipment  utilized.  As  this  figure  shows,  this  is  a 
complex  system  even  with  the  band  sw itching  eliminated  and  only 
the  2 to  4 GHz,  and  the  30  and  60  MHz  systems  represented.  For 
explanation  purposes,  the  system  can  be  divided  into  4 main  parts 
which  are:  (1)  the  switching  and  noise  source  section,  (2)  the  6 - 
port  reflectometer  section,  (3)  the  amplifying,  mixing,  and  power 
measurement  section,  and  (4)  the  instrument  and  control  section. 

(1)  The  Switching  and  Noise  Source  Section 

The  switching  section  provides  for  computer  control  of  band 
selection  switches  and  the  other  measurement  system  switches 
shown  in  the  figure  including  those  which  provide  for 
configuration  of  the  system  for  either  impedance  measurement  or 
noise  measurement.  This  section  also  provides  for  control  of  the 
system  output  level  via  a programmable  attenuator  and  3 d B 


10 


PROQAMMABLE 

ATTEN. 


EEE  488  BUS 


DIAGRAM  2-4 


1 1 


DETAILED  BLOCK 


RADIOMETER 


reference  attenuator  step.  Selection  of  either  a 5 MHz  or  30  MHz 
I.F.  frequency  for  the  measurement  of  noise  temperature  is  also 
provided.  These  I.  F.  frequencies  will  be  discussed  later. 

As  described  earlier,  the  measurement  of  the  noise 
temperature  of  a device  is  accomplished  by  comparing  the  noise 
power  output  of  the  D.U.T.  with  the  noise  power  output  of  two 
standard  noise  sources.  The  D.U.T.  is  usually  either  a noise 
diode  network  with  an  effective  noise  temperature  of  about  10,000 
K,  or  a load  which  is  actually  heated  to  about  377  K or  cooled 
with  liquid  nitrogen  to  about  77  K.  These  temperatures  are 
within  the  normal  range  of  the  automated  radiometer.  During  a 
measurement  sequence,  this  device  under  test  is  compared  to  the 
two  noise  standards  described  in  the  following  paragraphs. 

The  ambient  standard  is  a commercial  coaxial  load.  Long 
term  temperature  stability  of  this  load  is  achieved  by  encasing 
it  in  a water  jacket  through  which  is  pumped  water  from  a small 
reservoir.  Water  from  this  same  source  is  applied  to  jackets  in 
contact  with  the  measurement  ports  and  other  temperature 
sensitive  system  components.  This  locks  them  to  the  same  ambient 
temperature.  The  entire  measurement  system  is  mounted  on  a 
massive  aluminum  table  and  thermal  equilibrium  is  achieved  by 
piping  the  water  through  jackets  which  are  thermally  bonded  to 
the  table  and  the  measurement  system  components.  The  temperature 
of  the  ambient  load  which  is  used  in  making  noise  calculations  is 
found  by  monitoring  the  temperature  of  this  device  with  a 
calibrated  thermometer. 

The  cryogenic  standard  [4],  shown  in  Figure  5,  is  a coaxial 
load  located  in  a thermally  isolated  nitrogen  bath.  This  load  is 
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COAXIAL  CRYOGENIC  NOISE  STANDARD 

FIGURE  5 


continually  bathed  in  liquid  nitrogen  which  keeps  its  effective 
noise  temperature  locked  to  that  of  liquid  nitrogen  (nominally  77 
K).  The  level  of  the  nitrogen  in  the  standard  must  be  kept 
above  the  load  so  that  the  load  is  always  completely  immersed. 
This  level  is  checked  by  watching  the  float  shown  in  the  drawing 
(at  the  upper  left  of  the  side  view)  and  when  it  reaches  a 
predetermined  position,  more  nitrogen  is  added.  The  time 
interval  between  fillings  is  in  excess  of  4 hours.  The 
temperature  of  the  load  can  be  checked  periodically  with  a 
thermocouple  which  can  be  attached  for  test  purposes;  however, 
the  device  must  be  removed  during  measurements.  Both  standards 
are  broadband  which  allows  them  to  be  used  for  noise  comparison 
without  tuning;  this,  along  with  the  6-port  ref lectometer , is 
responsible  for  the  flexible  frequency  coverage  offered  by  the 
automated  radiometer. 

(2)  The  6-Port  Ref lectometer  Section 

The  6-port  reflectometer  section  replaces  most  of  the 
measurement  system  when  it  is  selected  and  is  totally 
disconnected  from  the  system  when  it  is  not  selected.  Again,  the 
purpose  of  the  6-port  reflectometer  section  is  to  provide  the 
capability  of  measuring  the  complex  reflection  coefficient 
(gamma)  of  the  device  under  test,  the  measurement  system  itself, 
and  the  standards  when  necessary;  this  mismatch  information  is 
stored  until  needed  for  making  corrections.  Figure  6 is  a block 
diagram  of  the  modified  6-port  reflectometer.  The  reflectometer 
is  installed  in  such  a way  that  the  noise  system  preamplifier 
becomes  a part  of  the  reflectometer  when  it  is  used.  This 
relationship  is  shown  in  Figure  4.  The  detailed  theory  of 
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operation  of  the  6-port  is  beyond  the  scope  of  this  manual  and  is 
covered  rigorously  in  other  publications  [5,6], 

In  the  following  brief  summary,  it  will  be  helpful  to  refer 
to  the  system  block  diagram  in  Figure  4 and  the  the  6-port  block 
diagram  in  Figure  6.  Power  at  the  frequency  of  interest  is 
coupled  to  the  6-port  from  the  synthesizer.  The  first  two 
couplers  at  the  bottom  of  the  6-port  diagram  are  simply  3 dB 
power  splitting  'couplers;  the  three  couplers  at  the  top  of  the 
diagram  are  3 dB  quadrature  couplers  which  shift  cross  coupled 
signals  90  degrees.  There  are  two  distinct  signal  paths  through 
the  6 -port.  The  one  on  the  right  shall  be  designated  the 
reference  signal  path.  The  reference  signal  represents  the  phase 
and  magnitude  of  the  incident  power  applied  to  the  6-port  and  the 
device  under  test.  The  path  on  the  left  shall  be  designated  the 
measurement  or  test  signal  path.  This  test  signal  represents  the 
phase  and  magnitude  of  the  power  applied  to  and  reflected  from 
the  device  under  test.  The  reference  and  test  signals  are 
combined  in  the  three  quadrature  couplers  at  the  top  of  Figure  6. 
The  combination  takes  place  in  such  a way  that  the  coupler 
outputs  have  a distinct  relationship  which  can  be  solved 
mathematically  to  yield  the  magnitude  and  phase  of  the  reflection 
coefficient  of  the  item  attached  to  the  measurement  port  and  also 
that  of  the  measurement  port  itself. 

The  coupler  outputs  are  detected  by  the  diodes  and  the 
resulting  D.C.  level  is  amplified  by  a factor  of  100  in  the 
amplifiers  shown.  This  boosts  the  signals  to  a high  enough  level 
to  be  easily  measured  by  the  DMM  . There  are  four  outputs  labeled 
P3,  P4,  P5,  and  P6.  Measurement  of  these  outputs  by  a DMM  and 
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processing  the  resulting  voltage  information  with  a special 
computer  subprogram  yields  the  impedance  information  desired. 

(3)  The  Amplifying,  Mixing,  and  Power  Measurement  Section 

Returning  to  the  measurement  section  of  the  radiometer, 
noise  powers  from  the  standards  and  device  under  test  are 
amplified  over  the  entire  2.0  to  4.0  GHz  frequency  range  by  the 
preamplifier  as  shown  in  Figures  3 and  4.  Noise  feedback  from 
the  preamplifier  is  prevented  by  the  isolators  shown  and  the 
output  is  filtered  by  the  4.0  GHz  low  pass  filter  to  eliminate 
harmonic  frequencies.  The  output  of  the  low  pass  filter  is 
applied  directly  to  the  low  noise  ortho  star  mixer.  Also  applied 
to  the  mixer  is  the  local  oscillator  input  supplied  from  the 
synthesizer  which  is  under  computer  control.  The  frequency  of 
the  synthesizer  is  programmed  to  be  the  same  as  the  calibration 
frequency  for  the  device  under  test.  The  I.F.  output  (double 
sideband)  power  from  the  mixer  is  sent  through  a programmable 
attenuator  and  reference  attenuator  which  set  the  I.F.  amplifier 
inputs  to  a level  which  insures  linear  operation.  Bandswitching 
will  take  place  at  this  point  and  the  attenuators  and  I.  F. 
amplifiers  will  be  shared  by  all  bands  from  0.35  to  12.0  GHz. 
The  I.  F.  amplification  takes  place  first  at  0.5  to  100  M H z 
bandwidth  (2  stages)  and  then  the  noise  calibration  I.F.  filter 
is  selected  by  the  measurement  program.  This  filter  sets  the 
noise  power  I.F.  frequency  to  either  30  MHz  with  a 1 MHz  bandpass 
or  5 MHz  with  a 5 MHz  bandpass.  Since  noise  power  is  a function 
of  bandwidth,  the  5 MHz  filter  provides  a higher  power  level  to 
measure.  Experiments  show  the  measurement  results  obtained  with 
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either  I.F. 


frequency  are  the  same  at  2.0  to  4.0  GHz. 


Howe  v e r , 


the  5 MHz  I.F.  might  prove  superior  at  lower  frequencies. 

The  filter  output  is  applied  to  the  two  power  amplifiers 
through  the  switches  shown.  The  power  amplifier  and  measurement 
section  is  designed  to  be  shared  by  all  frequency  bands.  Shown 
at  the  right  in  Figure  4,  the  30  and  60  MHz  automated  radiometer 
is  connected  or  disconnected  from  this  section  by  the  switch 
SW//2.  The  power  amplifiers  in  this  section  have  a bandpass  of 
0.02  to  300  MHz.  Both  have  a gain  of  30  decibels.  The 
attenuators  in  this  section  are  used  to  isolate  components  and  to 
provide  for  linear  operation.  The  output  of  this  section  is 
sampled  through  the  side  arm  of  a directional  coupler  to  give  the 
operator  a visual  indication  of  system  power  levels. 

Power  output  is  measured  by  using  a thermistor  mount 
connected  to  the  output  port  through  a DC  (direct  current)  block. 
This  thermistor  mount  in  combination  with  an  NBS  Type  IV  Power 
Meter  [7]  and  a precision  reference  voltage  generator  is  used  to 
measure  noise  power  for  all  of  the  automated  radiometer  frequency 
bands . 

(4)  The  Instrument  and  Control  Section 

The  instrument  and  control  section  encompasses  all  of  the 
peripheral  electronic  equipment  used  to  make  the  noise 
measurements  including  the  controller,  which  in  this  case  is  the 
Hewlett  Packard  9845  desktop  calculator. 

The  peripheral  equipment  used  to  make  a measurement  is  shown 
in  Figures  4 and  7.  Figure  7 depicts  the  equipment  used  to  make 
a measurement  with  either  the  2.0  to  4.0  GHz  automated 
radiometer  or  the  30  and  60  MHz  automated  radiometer  as  the  case 
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may  be.  Switch  S W // 2 connects  either  system  as  desired  to  the 
common  output  components.  Note  that  all  peripherals  shown  in 
Figure  7 are  shared  by  both  systems.  The  sane  equipment  is 
shown  in  Figure  4 and,  in  addition,  the  equipment  associated  with 
the  6-port  reflectometer  is  shown.  The  peripheral  instruments 
are  all  interconnected  on  the  IEEE  488  Bus.  Two  switch  driver 
modules  are  required  to  provide  for  control  of  all  the  switches. 

These  switch  driver  modules  are  connected  to  the  computer  by 
using  the  two  instrument  couplers  shown  in  Figure  4.  The  switch 
driver  assemblies  are  the  only  instruments  not  compatible  with 
the  IEEE  488  bus  and  so  two  instrument  couplers,  sophisticated 
decoders,  a r ° used  to  interface  the  two  switch  driver  modules  to 
the  controller  — making  both  modules  bus  compatible.  These  switch 
driver  modules  are  used  to  control  the  various  system  switches 
and  programmable  and  reference  attenuator  assemblies  when  they 
are  used.  An  LED  (light  emitting  diode)  display  on  the  front 
panel  of  each  switch  driver  module  gives  a visual  indication  of 
the  digital  code  from  the  controller.  This  display  shows  the  band 
selected,  status  of  the  system  switches,  and  whether  a 
measurement  or  impedance  determination  is  taking  place.  The 
status  of  the  switches  shown  in  Figure  7 is  shown  on  the  front 
panel  of  one  switch  driver  module  while  the  status  of  the  other 
system  switches  is  displayed  on  the  front  panel  of  the  second 
switch  driver  module. 

Two  scanners  (analog  multiplexers)  and  two  DMMs  (digital 
multimeters)  are  used.  One  of  the  scanners  with  its  associated 
DMM  is  shown  in  Figure  7.  These  instruments  are  shared  by  the 
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2.0  to  4.0  GHz  band  and  the  30  and  60  MHz  band  of  the  automated 


radiometer  at  this  time.  Use  in  connection  with  the  30  and  60 

MHz  system  is  covered  in  the  manual  for  that  system.  In  the  2.0 
to  4.0  GHz  automated  radiometer,  the  voltage  output  of  the  power 
meter  is  connected  to  this  DMM  through  the  scanner  to  collect 
output  voltages  which  are  then  converted  to  the  powers  and  noise 
temperatures  of  the  measured  devices  by  the  software. 

The  second  scanner  and  DMM  are  used  for  measurement  of  6- 
port  voltages  needed  to  characterize  impedance  and  also  to  check 
voltage  output  of  the  15  V,  +25  V and  -25  V switch  driver  power 
supplies  and  the  15  V,  20  V,  and  28  V amplifier  power  supplies. 

The  synthesizer  shown  in  figure  4 is  used  as  a signal  source 
for  the  six  port  reflectometer  when  it  is  selected  and  used  to 
measure  system,  D.U.T.,  and  standard  impedances.  It  is  also  used 
as  a local  oscillator  when  the  noise  measurement  mode  is 
selected  . 

Figure  8,  a block  diagram  of  the  entire  measurement  system 
as  it  exists  at  this  time  (August,  1983)  is  included  in  this 
section  for  ready  reference.  The  0.35  to  2.0  GHz  and  4.0  to  12.0 
GHz  sections  are  not  implemented  at  this  time.  The  94.0  GHz 

radiometer  does  exist  and  is  shown  in  the  center  of  this  figure. 

C.  A MEASUREMENT  SEQUENCE 

As  the  measurement  program  is  executed  by  the  computer,  all 
switching  is  automatic;  instructions  are  printed  on  the 

controller  video  screen  detailing  a A y actions  required  of  the 
operator . 

A normal  measurement  sequence  commences  with  the 

determination  of  the  port  asymmetry  error  correction  factor. 
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This  determination  proceeds  as  follows: 

1.  The  6-port  ref  lectonieter  portion  of  the  measurement 
system  is  selected. 

2 . The  system  port  to  which  the  device  under  under  test 
will  be  attached  (normally  port  #3)  is  activated. 

3.  The  operator  is  instructed  to  (a)  place  a sliding  short 

on  port  //  3 and  slide  it  as  directed,  (b)  place  a sliding 
load  on  the  port  and  slide  it  as  directed,  (c)  place  an 
offset  short  or  open  on  the  port,  and  (4)  place 
auxiliary  noise  standard  //I  (this  is  a noise  check 
standard)  on  the  port.  The  computer  uses  the 

information  obtained  from  this  sequence  to  determine  the 
complex  impedance  of  the  system  at  port  #3  and  the 

complex  impedance  of  auxiliary  noise  standard  # 1 . This 
impedance  information  is  stored  for  later  use. 
Auxiliary  standard  //I  is  left  connected  to  port  //  3 at 
this  time. 

4.  The  system  port  to  which  the  cryogenic  standard  will  be 
attached  is  now  selected.  This  is  normally  port  0. 

5.  Again  the  operator  is  directed  to  perform  the  operations 

involving  the  sliding  short,  sliding  load,  and  offset 
short  or  open.  This  time  however,  the  operator  is 

directed  to  place  auxiliary  standard  #2  on  port  #0. 
Now,  the  computer  determines  and  stores  the  complex 

impedance  parameters  for  the  system  at  port  #0  and  the 
auxiliary  noise  standard  #2.  The  auxiliary  standard 
#2  is  left  connected  to  port  #0  at  this  time. 

6.  Now  the  radiometer  is  switched  in,  the  6-port 
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reflectometer 


is  switched  out,  and  a 


measurement 


sequence  is  started  in  which  the  noise  power  from  the 
auxiliary  standard  #1  at  port  # 3,  the  noise  power  from 
the  ambient  load  at  port  # 4 , and  the  noise  power  from 
the  auxiliary  standard  #2  at  port  # 0 is  measured  and 
stored.  These  powers  are  measured  9 times  and  averaged. 
These  averages  and  associated  standard  deviations  are 
stored  and  the  operator  is  directed  to  interchange  the 
positions  of  the  two  auxiliary  standards.  The  sequence 
is  again  repeated  resulting  in  the  deter mi niation  of  the 
average  noise  powers  from  the  two  standards  and  the 
ambient  load  in  the  new  positions. 

The  ratio  of  the  noise  power  from  each  of  the  two  standards 
and  the  noise  power  from  the  ambient  load  is  then  determined  for 
each  position  of  each  device.  These  ratios  and  the  impedance 
information  stored  earlier  are  used  to  determine  the  port 
asymmetry  correction  factor  to  be  used  when  the  device  under  test 
is  measured.  The  power  ratios  calculated  will  be  stored  now  and 
used  later  to  compare  the  auxiliary  standards  with  the  cryogenic 
standard  resulting  in  them  being  automatically  evaluated  as 
check  standards. 

The  auxiliary  standards  are  now  removed  from  the 
measurement  system  and  the  actual  measurement  of  the  device  under 
test  is  begun.  First,  the  6-port  configuration  is  selected  and 
the  6~port  is  calibrated  using  the  sliding  short,  sliding  load, 
offset  short  or  open  as  described  above.  The  only  difference  in 
the  procedure  is  that  the  device  under  test  is  placed  on 
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measurement  port  #3  instead  of  auxiliary  standard  //I  and  the 
cryogenic  standard  Is  placed  on  measurement  port  //  0 instead  of 
auxiliary  standard  #2.  Complex  impedances  are  thus  measured  for 
the  device  under  test,  the  cryogenic  standard  and  the  measurement 
system  ports  to  which  they  are  attached.  These  complex  impedance 
values  are  used  to  correct  the  measured  noise  temperature  of  the 
device  under  test  for  mismatch.  A correction  factor,  for  this 


purpose , 

is  stored  and 

ret  rieved  wh e n 

needed  . 

Now 

t tie 

radiometer 

configuration 

is  selected  by 

the  action 

o f 

the 

system  switches  and  the  measurement  of  the  device  under  test  is 
begun.  The  noise  powers  from  the  device  under  test,  cryogenic 
standard,  and  ambient  standard  at  port  #4  are  measured  in 
sequence.  The  ratios  of  these  powers  are  converted  to  noise 
temperature  and  corrected  for  mismatch  and  port  asymmetry  using 
the  equations  detailed  on  pages  50-53  of  this  manual.  These 
powers  are  measured  50  times.  After  the  first  50  measurements 
are  made,  the  results  are  averaged  and  stored.  Then  3 dB  is 
inserted  in  the  measurement  path  by  the  step  attenuator  between 
the  mixer  and  final  amplifiers.  The  50  measurements  are  now 
repeated.  This  procedure  checks  amplifier  linearity.  The  final 
result  (reported  value)  will  be  the  average  of  the  two  sets  of 
measurements.  This  final  value  will  be  output  at  the  completion 
of  the  measurements  along  with  an  error  summary  and  statistical 
data. 

Complete  instructions  for  operating  the  measurement  system 
to  achieve  the  above  results  are  detailed  in  the  following 
section  of  this  manual. 
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3.  OPERATING  INSTRUCTIONS 


A.  EQUIPMENT  PREPARATION 

1.  POWER  OFF  INSPECTION  AND  SET-UP 

a . Thermal  stability  of  the  measurement  system  is 
achieved  by  pumping  water  from  a separate  reservoir  through 
the  system  water  jackets.  The  flexible  tubing  which  connects 
the  water  jackets  to  the  water  reservoir  should  be  inspected 
for  proper  connection  and  serviceable  condition  and  the 
water  level  in  the  reservoir  checked.  Then  the  pump  should 
be  turned  on.  Water  should  be  circulating  through  the  water 
jackets  and  returning  to  the  reservoir.  When  this  condition 
is  met,  the  system  is  ready  for  further  setup. 

b.  The  cryogenic  standard  should  now  be  filled  with 
liquid  nitrogen.  The  procedure  is  to  remove  the  plugs  in  the 
top  of  the  standard,  insert  a funnel  into  one  of  the 
openings,  and  slowly  pour  liquid  nitrogen  into  the  reservoir 
until  the  float  reaches  the  proper  level.  Replace  the 
plugs.  This  standard  should  be  allowed  to  stabilize  at 
least  an  hour  before  measurements  are  commenced. 

c.  Check  all  cables  interconnecting  the  controller  and 
instruments  to  assure  proper  connection  and  that  none  are 
missing . 

d.  It  is  suggested  that  all  applicable  coaxial 
connectors  on  the  measurement  system,  device  under  test,  and 
tuning  apparatus  for  the  six  port  r e f 1 e c t ome t e r be  cleaned  at 
this  time  with  isopropyl  alcohol.  Also  at  this  time 
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ascertain  that  the  device  under  test  can  be  physically 
connected  to  the  measurement  system. 

2.  POWER  ON  PROCEDURES  AND  SYSTEM  WARM-UP 


a . 

Turn  on 

all 

D.C. 

power 

supplies . 

(There  are 

four 

exte  rnal 

supplies  for  the 

two 

switch  driver  modules. 

These 

consist 

of  two 

+ 15 

volt 

D.C. 

supplies , 

one  +25  volt 

D.C. 

supply , 

and  one 

-25 

volt 

D.C. 

supply. 

In  addition, 

there 

are  two 

+28  volt 

D.C. 

suppl ies  for 

the  output 

power 

amplifiers,  one  +20  volt  D.C.  supply  for  the  1.  F. 

amplifiers,  and  one  +15  volt  D.C.  supply  for  the 

preamplifier.) 

b.  Turn  on  the  synthesizer,  switch  driver  modules  (2), 
instrument  couplers  (2),  digital  multimeters  (2),  scanners 
(2),  pow^r  meter,  reference  generator,  and  controller. 

c.  Turn  on  the  noise  source  power  supply  if  applicable. 
One  word  of  caution.  Some  coaxial  solid  state  noise 
sources  which  use  a diode  network  to  generate  noise  output 
might  be  damaged  if  a sudden  loss  of  voltage  or  sudden 
application  of  voltage  is  realized.  For  this  reason,  always 
increase  or  decrease  the  voltage  to  these  devices  GRADUALLY. 
After  the  measurement  system  is  turned  on,  a warmup  of  at 
least  one  hour  is  desirable  for  maximum  stability.  The 
digital  multimeters  and  synthesizer  can  be  left  on  overnight 
to  shorten  this  stabilization  time. 

B.  LOADING  AND  EXECUTING  THE  MEASUREMENT  PROGRAM 

The  measurement  system  is  operated  under  computer  control 

and  the  current  measurement  program  is  "RAD7EF"  (see  Appendix 


II).  Load  the  measurement  program  and  press  RUN.  Prompts, 
requesting  action  by  the  operator,  will  be  printed  on  the 
controller  display  screen.  After  the  operator  has  performed  the 
requested  action,  further  instructions  will  be  displayed  until 
the  measurement  is  completed.  The  following  discussion  covers 

major  items  encountered  when  executing  the  measurement  program 
"RAD7EF" . 

After  RUN  is  pressed,  a complete  measurement  and  printout  of 
system  voltages  is  accomplished.  If  voltages  are  satisfactory, 
press  CONT.  (If  not,  correct  the  problem  before  proceeding) 

Next,  requests  for  ambient  standard  temperature,  barometeric 
pressure,  and  a description  of  the  device  under  test  (customer 
name,  noise  source  manufacturer,  model,  serial  number,  date,  and 
test  number)  are  requested.  Enter  the  information  requested,  and 
press  CONT. 

The  portion  of  the  measurement  program  which  utilizes  the  6- 
port  r e f 1 e c t ome t e r to  characterize  impedance  and  port  asymmetry 
is  now  executed.  Place  devices  on  the  measurement  ports  as 
directed  and  press  CONT  after  completing  the  required  action. 
The  proper  port  will  be  automatically  selected  by  the  system 
switches  and  all  the  operator  need  do  is  make  sure  to  place  the 
devices  (sliding  short,  sliding  load,  etc.)  on  the  port  requested 
by  the  computer.  The  calibration  sequence  requires  measurement 
of  7 positions  of  the  sliding  short  circuit,  5 positions  of  the 
sliding  load,  and  a measurement  of  the  coaxial  open  circuit  or 
coaxial  offset  short  circuit  impedance  standard  being  used.  The 
optimum  distance  to  slide  the  short  and  load  is  determined  by 
dividing  the  wavelength  of  the  calibration  frequency  by  14  for 
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the  sliding  short  circuit  and  10  for  the  sliding  load.  At  the 
end  of  the  calibration  sequence,  the  auxiliary  standards  will  be 
in  place  on  the  two  ports  which  were  characterized.  The  system 
then  automatically  makes  a measurement  of  the  auxiliary  standard 
power  and  the  power  from  the  ambient  load.  A total  of  9 
measurements  are  made  and  then  the  operator  is  requested  to 
interchange  the  devices  on  the  ports.  After  the  devices  are 
interchanged,  press  CONT.  The  9 power  measurements  are  repeated 
and  port  asymmetry  is  determined  and  stored  by  the  computer. 

The  six  port  reflectometer  is  now  used  to  determine  the 
complex  impedance  parameters  associated  with  the  measurement 
system  and  the  device  under  test.  The  operator  is  again  directed 
to  place  the  devices  necessary  to  calibrate  the  six  port 
reflectometer  on  the  system  measurement  ports  as  directed  by  the 
computer  printout  on  the  screen.  This  time  however,  the  device 
under  test  and  cryogenic  standard  are  connected  to  the  system 
measurement  ports  when  the  calibration  sequence  is  completed.  At 
the  end  of  this  sequence,  the  complex  impedances  of  the  device 
under  test,  cryogenic  standard,  and  the  measurement  system  ports 
are  stored. 

Now  the  actual  measurement  portion  of  the  program  "RAD7EF" 
is  executed.  The  system  will  now  automatically  measure  the  noise 
power  from  the  device  under  test  without  further  operator 
intervention.  One  hundred  determinations  are  made  at  two 
different  power  levels  and  the  results,  measurement  statistics, 
and  error  analysis  are  printed  out  and  stored  for  future 
reference.  Also  printed  are  the  values  obtained  for  the  check 
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standards  which  were  automatically  measured  during  the 
calibration  sequence.  The  stored  information  is  used  for  control 
charts  and  statistical  studies  while  the  printed  material  is  used 
to  generate  a complete  report  of  calibration  for  the  customer. 

C.  MEASUREMENT  COMPLETION  AND  SYSTEM  SHUTDOWN 


After 

the 

desired 

measurements  of 

the 

devices  are 

completed,  sys 

tern 

shutdown 

is  accomplished  in 

the 

reverse  order 

o f 


t urn-on 


EXECUTIVE  SEGMENT 


3 1 


MAJOR  PROGRAM  SEGMENTS  PROGRAM  RAD7EF 


4.  SOFTWARE 


A.  GENERAL  OVERVIEW 

Since  the  6-port  ref lectometer  was  constructed  as  an 
integral  part  of  the  automated  radiometer,  the  software  has  been 
developed  to  take  full  advantage  of  the  added  measurement 
capability . 

Until  now,  the  normal  radiometer  system  outputs  have  been 
the  measured  noise  temperature  of  the  device  tested  and  an  error 
summary  detailing  error  limits  for  such  items  as  mismatch,  port 
asymmetry,  standard  uncertainty,  and  power  measurement  error. 
Separate  calibrations  were  required  with  check  standards  to 
verify  system  performance  and  linearity.  Because  the  6-port 
r e f 1 e c t ome t e r provides  accurate  complex  impedance  information, 
software  routines  have  been  incorporated  which  provide 
measurements  of  noise  temperature  corrected  for  both  mismatch  and 
port  asymmetry.  The  need  for  tuning  has  been  eliminated  and 
preliminary  measurements  indicate  that  reflection  coefficient 
magnitudes  as  high  as  0.8  can  be  effectively  modeled;  port 
asymmetry  as  high  as  6 dB  has  been  effectively  handled  as  well. 
In  addition,  information  obtained  when  determining  mismatch  and 
port  efficiency  can  be  used  along  with  the  system  output  to 
provide  for  check  standard  validation  of  system  performance 
automatically  during  the  normal  course  of  a measurement.  This 
results  in  a great  savings  of  time  and  provides  a continuous 
check  of  system  performance.  To  summarize  then,  present  hardware 
and  software  in  combination  provide  the  following  information  to 
the  calibration  customer: 


32 


1.  Complex  impedance  of  the  device  tested. 

2.  Total  noise  temperature  of  the  device  tested. 

3.  Effective  noise  temperature  of  the  device  tested. 

4.  Correction  of  the  measured  noise  temperature  of  the 
device  under  test  for  mismatch  and  port  asymmetry  or 
path  efficiency. 

5.  Complete  error  summary  of  any  known  errors  not  corrected 
for  and  the  estimated  measurement  uncertainty. 

In  addition  the  following  items  are  provided  for  calibration 
verification  and  support: 

1.  All  calibration  data  including  impedances,  powers 
measured,  and  calculated  results  are  stored  for  future 
reference . 

2.  Measurements  are  made  at  two  discrete  power  levels, 
providing  an  automatic  check  of  system  linearity.  Excess 
error  from  this  source  is  detected  if  large  variations 
in  results  at  these  two  power  levels  are  present. 

3.  An  automatic  check  of  the  values  of  two  check  standards 
is  made  to  verify  system  performance. 

The  measurement  program  version  currently  in  use  with  this 
system  is  called  "RAD7EF".  This  program  is  made  up  of  13  major 

segments  as  shown  in  Figure  9.  The  major  program  segments  are 
shown  in  block  form.  The  figure  is  arranged  so  that  the  various 
modules  depicted  are  arranged  in  the  order  in  which  they  are  used 
in  the  program.  Time,  in  this  figure,  flows  from  left  to  right 
and  top  to  bottom.  Lines  at  the  top  of  a block  represent  input 
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while  lines  at  the  bottom  of  a block  represent  output.  Each  line 
represents  a 2-way  transfer  of  information  with  a return  to  the 
calling  subprogram.  Variables  are  passed  between  subprograms  if 
they  are  listed  in  the  calling  statement  or  made  global  by  being 
listed  in  the  common  declaration  at  the  beginning  of  each 
subprogram.  A brief  description  of  each  subprogram  is  presented 
in  the  following  paragraphs. 

The  EXECUTIVE  SEGMENT  provides  initialization  of  variables 
and  switches  and  calls  other  subprograms  in  the  proper  order. 

SUBPROGRAM  VOLT  is  called  from  the  executive  segment  and 
provides  for  the  measurement  and  printout  of  system  power  supply 
voltages  prior  to  making  a measurement. 

SUBPROGRAM  GET-PARAMETERS  is  called  from  the  executive 
segment  and  provides  for  input  of  nomenclature  for  the  device 
under  test,  frequencies  to  be  calibrated,  number  of  measurements 
and  other  housekeeping  information. 

SUBPROGRAM  CAL  is  called  from  the  executive  segment  and 
provides  for  impedance  characterization  of  the  system  measurement 
port,  the  standards,  and  the  device  under  test.  This  subprogram 
implements  the  use  of  the  6-port  r e f 1 e c t ome t e r . 

SUBPROGRAM  C0RR2  is  called  from  the  executive  segment  and 
provides  for  the  characterization  of  system  path  efficiency  and 
port  asymmetry  using  impedance  parameters  generated  by  subprogram 
Cal  . 

SUBPROGRAM  OUT  is  called  from  the  executive  segment  and 
provides  for  measurement  of  the  noise  temperature  of  the  device 
under  test  and  generates  an  error  summary  which  is  printed  out 
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along  with  calibration  results. 

SUBPROGRAM  DESCR  is  called  by  the  executive  segment  and 
provides  for  storage  on  cassette  or  disc  of  a complete 
description  of  the  device  under  test,  calibration  frequency,  all 
powers  measured  during  the  calibration  sequence,  noise 
temperatures  of  the  standards,  measured  noise  temperature  of  the 
device  under  test,  and  statistical  information  pertaining  to  the 
measurement  results. 

The  above  described  subprograms  are  called  directly  from  the 
executive  segment  but  do  not  necessarily  perform  their  function 
independently;  they  call  in  turn  other  subprograms  which  provide 
necessary  interaction  between  instruments  and  keep  the  software 
efficient  and  modular.  These  subprograms  and  the  subprograms 
which  call  them  are  as  follows: 

SUBPROGRAM  DMM  is  called  from  subprograms  Cal  and  Volt  and 
provides  for  voltage  measurements  made  with  the  DMM.  Return  is 
to  the  calling  subprogram. 

SUBPROGRAM  FREQ  is  called  from  subprograms  Cal  and  Meas. 
This  subprogram  controls  the  output  of  the  synthesizer  and  thus 
the  power  and  frequency  of  the  local  oscillator  input  to  the 
system  mixer.  Return  is  to  the  calling  subprogram. 

SUBPROGRAM  C0RR1  is  called  from  subprogram  Corr2  and 
provides  for  the  measurement  of  power  ratios  between  the 
auxiliary  standards  and  ambient  standard  for  use  by  Corr2  in 
determining  path  efficiency  and  port  asymmetry  corrections. 
Return  is  to  Corr2. 

SUBPROGRAM  MEAS  is  called  by  subprogram  Out  and  provides  for 
port  switching,  measurement  of  the  noise  power  of  the  standards 
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and  the  device  under  test.  This  subprogram  provides  for 
accumulation  of  statistical  data  pertinent  to  the  measurement 
results  and  the  calculation  of  the  noise  temperature  of  the 
device  under  test.  Return  is  to  Corr2. 

SUBPROGRAM  POWER  is  called  from  Corrl  and  Meas  and  provides 
for  determination  of  noise  power  at  the  desired  system 
measurement  port.  This  subprogram  has  the  routines  necessary  to 
utilize  the  NBS  Type  IV  power  meter  to  make  these  power 
measurements.  Return  is  to  the  calling  subprogram. 

SUBPROGRAM  REPORT  is  called  from  subprogram  Out.  This 
subprogram  provides  a printout  of  measurement  results,  an  error 
summary,  and  statistical  information.  This  printout  is  a 
complete  report  of  the  calibration  of  the  device  under  test. 

MASS  STORAGE  DEVICE  is  not  a subprogram  but  is  a physical 
device  (either  a cassette  transport  or  disc  unit)  which  provides 
for  storage  of  information  used  by  the  various  routines.  This 
enables  a recap  of  a measurement  at  any  time  for  analysis  of 
results  and  eliminates  the  need  for  large  permanent  matrices 
for  storage  of  intermediate  and  final  results. 

The  above  descriptions  are  intended  to  give  a very  brief 
summary  of  the  software  modules  contained  in  the  measurement 
program  and  show  the  interaction  between  the  various  segments.  A 
listing  of  this  program  is  included  in  Appendix  II  of  this  manual 
along  with  a printout  of  the  variables  used  and  their  location. 

B.  MATRICES 

Four  major  matrices  are  used  in  the  measurement  program  to 
store  information  while  the  program  is  being  executed  and  and 
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also  on  the  mass  storage  device  to  permit  analysis  of  system 
measurement  results  at  some  later  time.  These  are: 

1.  The  Q matrix  which  is  a 3 by  100  array  used  to  store 

the  powers  measured  during  a measurement  sequence. 
This  enables  statistical  analysis  of  the  measurement 

process  at  any  convenient  time.  The  Q matrix  elements 

Q ( 1 , 1 ) through  Q ( 1 , 1 0 0 ) are  used  to  store  powers 

measured  from  the  device  under  test,  Q ( 2 , 1 ) through 

Q(2,100)  is  used  to  store  the  measured  power  from  the 
ambient  load,  and  Q ( 3 , 1 ) through  Q ( 3 , 1 0 0 ) is  used  to 

store  the  measured  powers  from  the  cryogenic  standard. 

2.  The  C matrix  which  is  a 16  by  4 by  2 array  which  is  used 
to  store  6-port  data  during  measurement  sequences  for 
determining  impedances.  The  contents  of  the  C matrix 
are  shown  in  Table  1. 

3.  The  Z matrix  which  is  a 1 by  80  array  which  provides 

storage  for  all  system  constants,  measurement  results, 
and  other  pertinent  data.  The  contents  of  the  Z Matrix 
are  shown  in  table  2. 

4.  The  F matrix  which  is  a 4 by  15  array  which  provides 

storage  space  for  the  complex  impedances  for  the  system 


measurement  ports, 

device 

under 

test, 

and  the  two 

auxiliary  standards 

used. 

Table 

3 shows 

the  contents 

of  the  F mat  r ix . 
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TABLE  1 
C MATRIX 


ELEMENT 

DEVICE  CONNECTED  TO 
SYSTEM  PORT  DURING 
CALIBRATION  SEQUENCE 

6-PORT  OUTPUT 
DESCRIPTION  AND 
SCANNER  CHANNEL 

C ( 1 ,1,1) 

Device 

under  test 

P 5 

(Channel 

10) 

C ( 1 ,2,1) 

Device 

under  test 

P4 

(Channel 

ID 

C ( 1 ,3,1) 

Device 

under  test 

P 6 

( Cha  nne 1 

12) 

C ( 1 ,4,1) 

Device 

under  test 

P 3 

(Channel 

13) 

C ( 2 , 1 , 1 ) 

Quarter 

wave  short  circuit 

P 5 

(Channel 

10) 

C ( 2 , 2 , 1 ) 

Quarter 

wave  short  circuit 

P 4 

(Channel 

ID 

C ( 2 , 3 , 1 ) 

Quarter 

wave  short  circuit 

P 6 

(Channel 

12) 

C ( 2 , 4 , 1 ) 

Quarter 

wave  short  circuit 

P 3 

(Channel 

13) 

C ( 3 , 1 , 1 ) 

Sliding 

short  — position 

1 

P 5 

(Channel 

10) 

C ( 3 , 2 , 1 ) 

Sliding 

short  — pos it  ion 

1 

P 4 

(Channel 

ID 

C ( 3 ,3, 1 ) 

Sliding 

short--position 

1 

P 6 

(Channel 

12) 

C ( 3 , 4 , 1 ) 

Sliding 

short  — position 

1 

P 3 

(Channel 

13) 

C(4 , 1 , 1 ) 

Sliding 

short--position 

2 

P 5 

(Channel 

10) 

C ( 4 , 2 , 1 ) 

Sliding 

short  — position 

2 

P 4 

(Channel 

ID 

C ( 4 , 3 , 1 ) 

Sliding 

short  — position 

2 

P 6 

(Channel 

12) 

C ( 4 , 4 , 1 ) 

Sliding 

short  — position 

2 

P 3 

( Channe 1 

13) 

C ( 5 , 1 , 1 ) 

Sliding 

short-position 

3 

P 5 

(Channel 

10) 

C ( 5 , 2 , 1 ) 

Sliding 

short--position 

3 

P 4 

(Channel 

1 1 ) 

C ( 5 , 3 , 1 ) 

Sliding 

short  — position 

3 

P 6 

( Channel 

12) 

C ( 5 , 4 , 1 ) 

Slid ing 

short  — position 

3 

P 3 

( Channe 1 

13) 
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TABLE  1 

C MATRIX  continued 


ELEMENT 

DEVICE  CONNECTED  TO 
SYSTEM  PORT  DURING 
CALIBRATION  SEQUENCE 

6-P0RT  OUTPUT 
DESCRIPTION  AND 
SCANNER  CHANNEL 

0(6,1,].) 

Sliding 

short--position 

4 

P 5 

(Channel 

10) 

C ( 6 , 2 , 1 ) 

Sliding 

short  — position 

4 

P 4 

( Channe 1 

ID 

C ( 6 , 3 , 1 ) 

Sliding 

short--position 

4 

P 6 

(Channel 

12) 

C ( 6 , 4 , 1 ) 

Sliding 

short--position 

4 

P 3 

(Channel 

13) 

C ( 7 ,1,1) 

Sliding 

short--position 

5 

P 5 

(Channel 

10) 

C ( 7 ,2,1) 

Sliding 

short  — position 

5 

P 4 

(Channel 

ID 

C ( 7 ,3,1) 

Sliding 

short--position 

5 

P 6 

( Channel 

12) 

C ( 7 ,4,1) 

Sliding 

short--position 

3 

P 3 

(Channel 

13) 

C ( 8 , 1 , 1 ) 

Slid ing 

short--position 

6 

P 5 

(Channel 

10) 

C ( 8 , 2 , 1 ) 

Sliding 

short--position 

6 

P 4 

(Channel 

ID 

C ( 8 , 3 , 1 ) 

Sliding 

short  — position 

6 

P 6 

(Channel 

12) 

C ( 8 , 4 , 1 ) 

Slid ing 

short--position 

6 

P 3 

(Channel 

13) 

C ( 9 , 1 , 1 ) 

Sliding 

short  — position 

7 

P 3 

(Channel 

10) 

C ( 9 , 2 , 1 ) 

Sliding 

short--position 

7 

P 4 

( Channe 1 

ID 

0(9,3, 1) 

Sliding 

short-position 

7 

P 6 

(Channel 

12) 

0(9,4, 1) 

Sliding 

short--position 

7 

P 3 

(Channel 

13) 

0(10,1,1) 

Sliding 

Load — position 

1 

P 5 

(Channel 

10) 

0(10,2,1) 

Slid ing 

Load — position 

1 

P 4 

( Channe 1 

ID 

0(10,3,1) 

Sliding 

Load — pos i t ion 

1 

P 6 

( Channe 1 

10) 

0(10,4,1) 

Sliding 

Load — position 

1 

P 3 

(Channel 

10) 
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TABLE  1 

C MATRIX  continued 


ELEMENT 

DEVICE  CONNECTED  TO 
SYSTEM  PORT  DURING 
CALIBRATION  SEQUENCE 

6-P0RT  OUTPUT 
DESCRIPTION  AND 
SCANNER  CHANNEL 

C ( 1 1 , 1 , 1 ) 

Sliding 

Load  — position 

2 

P 5 

(Channel 

10) 

c ( 1 1 ,2,1) 

Sliding 

Load  — position 

2 

P4 

(Channel 

ID 

0(11,3,1) 

Sliding 

Load — pos i t i on 

2 

P 6 

(Channel 

10) 

0(11,4,1) 

Sliding 

Load--position 

2 

P 3 

(Channel 

10) 

0(12,1,1) 

Sliding 

Load — position 

3 

P 5 

( Channe 1 

10) 

0(12,2,1) 

Sliding 

Load--position 

3 

P 4 

(Channel 

ID 

0(12,3,1) 

Sliding 

Load--position 

3 

P 6 

( Channel 

10) 

0(12,4,1) 

Sliding 

Load — position 

3 

P 3 

(Channel 

10) 

0(13,1,1) 

Sliding 

Load — position 

4 

P 5 

(Channel 

10) 

0(13,2,1) 

Sliding 

Load — position 

4 

P 4 

(Channel 

ID 

0(13,3,1) 

Sliding 

Load  — position 

4 

P 6 

( Channel 

10) 

0(13,4,1) 

Sliding 

Load — pos i t ion 

4 

P 3 

(Channel 

10) 

0(14,1,1) 

Sliding 

Load--position 

5 

P 5 

( Channe 1 

10) 

0(14,2,1) 

Sliding 

Load  — position 

5 

P 4 

(Channel 

ID 

0(14,3,1) 

Sliding 

Load  — posit  ion 

5 

P 6 

( Channel 

10) 

0(14,4,1) 

Slid ing 

Load--pos i t ion 

5 

P 3 

( Channe 1 

10) 

0(15,1,1) 

Auxiliary  Noise  Source 

P 5 

(Channel 

10) 

0(15,2,1) 

Auxiliary  Noise  Source 

P 4 

(Channel 

ID 

0(15,3,1) 

Auxiliary  Noise  Source 

P 6 

(Channel 

10) 

0(15,4,1) 

Auxiliary  Noise  Source 

P 3 

(Channel 

10) 

40 


TABLE  1 

C MATRIX  continued 


ELEMENT  DEVICE  CONNECTED  TO 

SYSTEM  PORT  DURING 
CALIBRATION  SEQUENCE 


6-PORT  OUTPUT 
DESCRIPTION  AND 
SCANNER  CHANNEL 


C ( 1 6 , 1 , 1 ) 


Impedance  Check  Std. 


P5  (Channel  10) 


C ( 1 6 , 2 , 1 ) 


Impedance  Check  Std. 


P4  ( Channe 1 11) 


C ( 1 6 , 3 , 1 ) 


Impedance  Check  Std. 


P6  (Channel  10) 


C ( 1 6 , 4 , 1 ) 


Impedance  Check  Std. 


P3  (Channel  10) 


The  64  listed  elements  of  the  C array  are  filled  when  port 
3 is  characterized  during  a calibration  sequence;  the  other  64 
elements  of  this  array  are  filled  when  port  0 is  characterized. 
The  devices  connected  when  the  second  half  of  the  array  is 
filled  are  identical  with  the  exceptions  of  locations  C(l,l,2), 
C(l,2,2),  C(l,3,2),  and  C(l,4,2).  When  these  four  locations  are 
filled,  the  cryogenic  standard  is  connected  to  port  0 instead  of 
the  D . U . T . . 
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TABLE  2 
Z MATRIX 


ELEMENT 

DESCRIPTION 

PROG  LOCATION 

Z ( 1 , 1) 

T 2 

P 0 = 1 

22880 

z ( 1 , 2 ) 

T 3 

P 0 = 1 

22890 

Z ( 1 , 3 ) 

T 1 

P 0 = 1 

22900 

Z ( 1 , 4 ) 

S 1 

P0  = 1 

229  10 

Z ( 1 , 5 ) 

T4 

P 0 = 1 

22920 

Z ( 1 ,6) 

P 2 

P 0 = 1 

22930 

Z ( 1 , 7 ) 

T 2 

P 0 = 2 

22770 

Z(1  ,8) 

T 3 

P0  = 2 

22780 

Z ( 1 ,9) 

T 1 

P 0 = 2 

22790 

z ( 1 ,10) 

S I 

P 0 = 2 

2 280Q 

z ( 1 , 1 1 ) 

T 4 

P 0 = 2 

22810 

z ( 1 , 12) 

P 2 

P 0 = 2 

22820 

z(  1 , 13  ) 

Std 

error  of 

mean  (Tx) 

24320 

Z ( 1 , 14  ) 

Excess  noise 

ratio  in  dB 

(Tx) 

24330 

Z ( 1 , 15) 

Bias 

; plus  3 

t imes  std.  e r ror 

24670 

Z ( 1 , 1 6 ) 

Te, 

radiometer  sys.  temp 

K 

24340 

Z ( 1 , 1 7 ) 

System  noise 

figure 

24430 

Z ( 1 , 1 8 ) 

Sys  t em  gain 

in  d B 

24480 

Z ( 1 , 1 9 ) 

Source,  error  cryo.  std. 

241  10 

Z ( 1 ,20) 

% error--cryo.  std. 

24130 
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TABLE  2 

Z MATRIX  continued 


ELEMENT 

DESCRIPTION 

PROG  LOCATION 

Z ( 1 ,21  ) 

Ambient  std.  source  error 

24140 

Z ( 1 ,22) 

/ error-  ambient  std. 

24  1 70 

Z ( 1 , 2 3 ) 

Power  ratio  source  error 

24400 

Z ( I ,24) 

% error-  power  ratio 

244  10 

Z ( 1 ,25) 

N3 — number  of  meas.  per  set 

20480 

Z(  1 , 26  ) 

% total  mismatch  error 

24570 

Z ( 1 , 27  ) 

Non-linearity  constant  El 

20530 

Z ( 1 ,28) 

/ error  for  non-linearity 

24500 

Z ( I ,29) 

% error  for  switch  asymmetry 

24550 

Z ( 1 ,30) 

Linear  sum  of  bias  errors 

24610 

Z ( 1 , 3 I ) 

Total  # of  measurements,  N 

20500 

Z ( 1 , 3 2 ) 

% Error-  3 times  SEM 

245  10 

Z ( 1 ,33) 

Linear  sum  of  errors 

24620 

Z ( I ,34) 

F requency  F 

18400 

Z(1  ,35) 

Calibrated  Tx  (average) 

24070 

Z(  1 ,36  ) 

Bias  error  % 

24630 

Z ( 1 , 37  ) 

FI  (start  frequency) 

20450 

Z ( I ,38) 

F2  (stop  frequency) 

20460 

Z ( 1 ,39  ) 

F3  (step  frequency) 

20470 

Z ( 1 ,40) 

N8  NO.  of  sets  per  meas. 

20490 

TABLE  2 

Z MATRIX  continued 


ELEMENT  DESCRIPTION  PROG  LOCATION 


Z ( 1 , 4 1 ) 

S um 

o f 

sqrs  Tl,  2nd  50,  B6 

22840 

Z ( 1 ,42) 

Sum 

o f 

Tl,  2nd  50,  B8 

2 2860 

Z ( 1 ,43) 

Sum 

o f 

sqrs  Tl,  1st  50,  B5 

22960 

Z ( 1 ,44) 

S um 

o f 

T 1. , 1st  50,  B 7 

2 2970 

Z ( 1 ,45) 

Sum 

o f 

PI  (divide  by  N for  ave) 

2 3 3 10 

Z ( 1 ,46) 

Sum 

o f 

P2  (divide  by  N for  ave) 

23320 

Z ( 1 ,47  ) 

Sum 

o f 

P3  (divide  by  N for  ave) 

23330 

Z ( 1 ,48) 

Sum 

o f 

sqrs  PI 

23350 

Z(1  ,49) 

Sum 

o f 

sqrs  P 2 

23360 

Z ( 1 ,50) 

Sum 

o f 

sqrs  P 3 

23370 

Z ( 1 ,51) 

Z ( 1 ,52) 

T 1 

24070 

Z ( 1 ,53) 

T 2 

24090 

Z ( 1 ,54) 

T 3 

24100 

Z ( 1 ,55) 

Bandwidth  5 MHz  IF  3.6  MHz 

245  10 

Z ( 1 

,56) 

Band wid  th 

30 

MHz  IF  .95  MHz 

24520 

z(  1 

,57) 

Ae  ta , result 

, port  s ymme  t r y 

16290 

z(  1 

,58) 

Frequency 

o f 

meas  uremen t 

16420 

z ( 1 

,59) 

Isolator 

Error  percent 

24590 

Z(1 

,60) 

Mismatch 

% error  + power  ratio 

24600 
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TABLE  2 

Z MATRIX  continued 


ELEMENT 

DESCRIPTION 

PROG  LOCATION 

Z(1  ,61  ) 

Ref  1 . 

coef . magnitude 

D.U.T. 

6100 

F ( 1 ,62) 

Re  f 1 . 

coe  f . Angl e D . U 

.T. 

6110 

Z(1  ,63) 

Ref  1 . 

coef.  real  D.U. 

T . 

6120 

Z ( 1 ,64) 

Ref  1 . 

coef.  imag.  D.U 

.T  . 

6130 

Z ( 1 ,65) 

Mismatch  correction 

factor 

6300 

Z ( 1 ,66) 

Result 

Check  standard 

1 

23590 

Z ( 1 , 6 7 ) 

Result 

Check  standard 

2 

23600 

Z ( 1 ,68) 

Result 

Check  standard 

1 

2 3630 

Z ( 1 ,69) 

Result 

Check  standard 

2 

23640 

Z ( 1 ,70) 

Z ( 1 , 7 1 ) 

Ratio 

P1/P2  set  1 

23340 

Z ( 1 ,72) 

Z(1  ,73) 

P 7 s ura 

of  PI  set  2 

23420 

Z ( 1 , 74  ) 

P 8 s um 

of  P2  set  2 

23430 

Z ( 1 ,75) 

P 9 sum 

of  P3  set  2 

23440 

Z ( 1 ,76) 

W4  s um 

of  sqrs  PI  set 

2 

23450 

Z ( 1 , 77  ) 

W5  s um 

of  sqrs  P2  set 

2 

23460 

Z(1  ,78) 

W6  s um 

of  sqrs  P3  set 

2 

23470 

Z ( 1 ,79) 

Ratio 

P1/P2  set  2 

2 3480 

Z ( 1 ,80) 
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TABLE  3 
F MATRIX 


ELEMENT 

DESCRIPTION 

PROG  LOCATION 

F ( 1 , 1 ) 

Measurement  frequency 

4310 

F ( 1 ,2) 

Space  for  # short  pos  analyzed 

F ( 1 ,3) 

Real  part  system  gamma  (1) 

1 1530 

F ( 1 ,4) 

Space  for  std.  dev.  F(l,3) 

F(1 ,5) 

Imag . part  system  gamma  (1) 

1 1540 

F ( 1 ,6) 

Space  for  std.  dev.  F(l,4) 

F ( 1 ,7) 

System  refl.  coef.  angle  (1) 

11510 

F ( 1 ,8) 

Space  for  std.  dev.  F(l,7) 

F(1 ,9) 

System  refl.  coef.  magnitude(l) 

1 1 500 

F ( 1 , 10) 

Space  for  std.  dev.  F(l,9) 

F ( 1 , 1 1 ) 

Refl.  coef.  magnitude  D.U.T. 

5760 

F(1  ,12) 

Refl.  coef.  angle  D.U.T. 

57  70 

F ( 1 , 13) 

Real  part  F ( 1 , 1 1 ) 

5780 

F ( 1 , 1 4 ) 

Imag  part  F ( 1 , 1 1 ) 

5790 

F ( 1 , 15) 

Mismatch  factor  Mx 

5930 
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TABLE  3 

F MATRIX  continued 


ELEMENT 

DESCRIPTION 

PROG  LOCATION 

F ( 2 , 1 ) 

Measurement  frequency 

4310 

F(2 ,2) 

Space  for  # short  pos  analyzed 

F(2 ,3) 

Real  part  system  gamma  (2) 

11590 

F(2 ,4) 

Space  for  std.  dev.  F(2,3) 

F ( 2 , 5 ) 

Imag.  part  system  gamma  (2) 

11600 

2(2,6) 

Space  for  std.  dev.  F(2,4) 

F ( 2 , 7 ) 

System  refl.  coef.  angle  (2) 

11570 

F(2 ,8) 

Space  for  std.  dev.  F(2,7) 

F ( 2 , 9 ) 

System  refl.  coef.  magnitude(2) 

11560 

F ( 2 , 1 0 ) 

Space  for  std.  dev.  F(2,9) 

F ( 2 , 1 1 ) 

Refl.  coef.  magnitude  Cryo  std. 

5670 

F(2 , 12) 

Refl.  coef.  angle  Cryo  std. 

5680 

F ( 2 , 1 3 ) 

Real  part  F( 2 , 1 1 ) 

5690 

F(2, 14) 

Imag  part  F ( 2 , 1 1 ) 

5700 

F ( 2 , 1 5 ) 

Mismatch  factor  Mx 

5930 

TABLE  3 

F MATRIX  continued 


ELEMENT 

DESCRIPTION 

PROG 

F ( 3 , 1 ) 

Measurement  frequency 

4310 

F ( 3 , 2 ) 

Space  for  ft  short  pos  analyzed 

F ( 3 , 3 ) 

Real  part  system  gamma  (3) 

57  30 

F ( 3 , 4 ) 

Space  for  std.  dev.  F(3,3) 

F ( 3 , 3 ) 

Imag.  part  system  gamma  (3) 

5740 

F ( 3 , 6 ) 

Space  for  std.  dev.  F(3,4) 

F ( 3 , 7 ) 

System  refl.  coef.  angle  (3) 

57  10 

F ( 3 , 8 ) 

Space  for  std.  dev.  F(3,7) 

F ( 3 , 9 ) 

System  refl.  coef.  magnitude(3) 

5720 

F(3,  10) 

Space  for  std.  dev.  F(3,9) 

F(3,  11  ) 

Refl.  coef.  magnitude  Aux.  1 

5670 

F ( 3 , 1 2 ) 

Refl.  coef.  angle  Aux.  1 

5680 

F ( 3 , 1 3 ) 

Real  part  F ( 3 , 1 1 ) 

5690 

F ( 3 , 1 4 ) 

Imag  part  F ( 3 , 1 1 ) 

5700 

F ( 3 , 15) 

Mismatch  factor  Mx 

5930 

LOCATION 
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TABLE  3 

F MATRIX  continued 

ELEMENT 

DESCRIPTION 

PROG  LOCATION 

F(4  , 1 ) 

Measurement  frequency 

4310 

F ( 4 , 2 ) 

Space  for  //  short  pos  analyzed 

F ( 4 , 3 ) 

Real  part  system  gamma  (4) 

57  30 

F ( 4 , 4 ) 

Space  for  std.  dev.  F(4,3) 

F ( 4 , 5 ) 

Imag.  part  system  gamma  (4) 

5 7 40 

F ( 4 , 6 ) 

Space  for  std.  dev.  F(4,4) 

F ( 4 , 7 ) 

System  refl.  coef.  angle  (4) 

57  10 

F(4,8) 

Space  for  std.  dev.  F(4,7) 

F ( 4 , 9 ) 

System  refl.  coef.  magnitude(4) 

57  20 

F ( 4 , 10) 

Space  for  std.  dev.  F(4,9) 

F ( 4 , 1 1 ) 

Refl.  coef.  magnitude  Aux.  2 

5670 

F ( 4 , 1 2 ) 

Refl.  coef.  angle  Aux.  2 

5680 

F ( 4 , 1 3 ) 

Rea  1 part  F ( 4 , 1 1 ) 

5690 

F ( 4 , 1 4 ) 

Imag  part  F ( 4 , 1 1 ) 

5700 

F ( 4 , 1 5 ) 

Mismatch  factor  Mx 

5930 

C.  NOISE  EQUATIONS  AND  THEIR  APPLICATION  TO  THE  AUTOMATED 
RADIOMETER 

The  end  result  of  a noise  measurement  sequence  is  the 
calculated  noise  temperature  of  the  device  tested  and  a summary 
of  known  errors  and  system  parameters.  Certain  equivalent 
numerical  relationships  are  essential  to  convert  the  intermediate 
results  obtained  with  the  system  hardware  to  the  final  form 
tabulated  at  the  conclusion  of  a measurement  sequence.  A summary 
of  these  is  presented  here  to  provide  a ready  reference  for  the 
theoretical  work  underlying  the  software.  Documentation  for  this 
summary  may  be  found  in  the  Noise  Laboratory  Notebook  "AR2"  [8]. 

This  summary  is  not  intended  to  be  self-explanatory.  In  the 

following,  Tl,  T2,  and  T3  are  the  noise  temperatures  of  the 
device  under  test,  ambient  standard,  and  cryogenic  standard 
respectively.  Tx  is  the  same  as  and  used  interchangeably  with 

Tl.  Noise  temperatures  are  expressed  in  Kelvins.  Temperature  in 
degrees  Celsius  is  converted  to  Kelvins  by  adding  273.15. 

The  notation  used  in  this  section  is  compatible  with  the 
computer  used.  To  avoid  confusion,  the  following  are  defined: 
(1)  The  denotes  multiplication,  (2)  The  denotes 

exponentiation,  (3)  SQR  denotes  square  root,  (4)  ABS  denotes 
magnitude,  (4)  LOG  denotes  logarithm  to  the  base  10,  and  (5)  Ln 
denotes  natural  logarithm. 

The  noise  power  measured  from  the  device  under  test  is 
designated  Pi,  that  from  the  ambient  standard  as  P2,  and  that 
from  the  cryogenic  standard  as  P3.  The  noise  temperature  of  the 
unknown,  Tx , is  then  determined  by  first  finding  the  power  ratios 
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Y1  and  Y3  and  correlating  them  with  the  temperatures  of  the 
standards  to  find  Tx : 

Y1=P1/P2  (1) 

Y3=P3/P2  (2) 

Tx  = T2+(T3-T2)*(Yl-l )/ (Y3-1  ) (3) 

In  a normal  calibration,  the  determination  of  Tx  is  made  100 
times  and  the  average  of  these  100  determinations  is  reported  as 
is  the  standard  deviation.  Equation  (3)  is  the  basis  for 
calculating  the  noise  temperature  for  the  device  tested,  but 
further  enhancements  are  necessary  for  maximum  accuracy.  These 
are  as  follows: 

Noise  Temperature,  Tx , corrected  for 
mismatch  is  calculated  using  the  following: 

First  the  mismatch  factor,  Mx , between  the  device 
under  test  and  the  appropriate  system 
port  is  fo  und : 

Mxl = ( 1 -Gxm  ~ 2 )*( 1 -Gs m ~ 2 ) (4) 

Mx  2 = (l-Gxr*Gs  r+Gx i *G  s i)~2  + (Gxr*Gsi+Gxi*Gsr)~2  (5) 

Mx  = Mx 1 / Mx 2 ( 6 ) 

where 

Gxm  and  Gsm  are  the  magnitudes  of  the 
reflection  coefficients,  Gx  and  Gs , of 
the  device  under  test  and  the  system 
ports  respectively. 

Gxr  and  Gsr  are  the  real  part  of  Gx  and  Gs 
respectively . 

Gxi  and  Gsi  are  the  imaginary  part  of  Gx  and  Gs 
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respectively. 


Then  the  mismatch  factor,  Ms,  between  the  cryogenic 
standard  and  appropriate  system  port  is  found: 

Ms  1 = ( 1-Gxm' ~ 2 )*( 1-Gsm' ~ 2 ) 

Ms2=( 1 -Gxr ' *Gsr ' +Gx i '*Gsi')~2+(Gxr'*Gsi'+  Gxi'*Gsr' ) 

Ms=Msl/Ms2 

where 

Gxm'  and  Gsm'  are  magnitudes  of  the  reflection 
coefficients,  Gx'and  G s ' , of  the  cryogenic  standard 
and  system  ports  respectively. 

Gxr'  and  Gsr'  are  the  real  parts  of  Gx'  and 
Gs  ' respectively. 

Gxi'  and  Gri'  are  the  imaginary  parts  of  Gx' 
and  Gs ' respectively. 

The  mismatch  factor  for  use  in  correcting  T1 
is  found  by: 

MF=Ms / Mx 

Tx  can  now  be  obtained  corrected  for  mismatch: 

T x = T 2 +M  F * ( T 3 - T 2 ) * ( Y 1 - 1 ) / ( Y 3 - 1 ) 

Port  Asymmetry  is  evaluated  (see  Appendix  I) 
as  the  ratio  of  the  standard  port  noise  efficiency 
to  the  measurement  port  noise  efficiency. 

Let  this  ratio  equal  Al. 

Then  applying  this  term  in  (11) 

T x = T 2 +MF  * A 1 * ( T 3 - T 2 ) * ( Y 1 - 1 ) / ( Y 3—  1 ) 


(7) 

(8) 
(9) 


(10) 

(ID 

(12) 
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Tx  has  now  been  corrected  for  asymmetry  (signal 
path  efficiency)  and  mismatch. 

For  more  accuracy,  one  further  correction  must  be 
made  to  the  calculated  noise  temperature.  This 
is  the  quantum  correction  and  is  needed  especially 
for  the  ratios  of  frequency  to  temperature.  This 
correction  is  made  as  follows: 

First  the  cryogenic  standard  temperature  T3 
is  corrected : 

T3  '=Zeta*(T3+Dt ) 

where  Zeta=n/(EXP(n)-l), 

Dt=the  loss  and  mismatch  corrections  to  the 

cryogenic  standard. 

n=(0.0479932*F)/T3, 

F=Frequency  in  GHz., 

and  Tn=T3=  the  temperature  of  the  termination 
from  equation  (24). 

Dl=2.64E-3*SQR(F)*Gs~2*(T2-Tn) 

where  now  Gs  is  the  reflection  coefficient 

magnitude  of  the  cryogenic  standard. 

D2=.61 1-2 . 55E-3*(Tn-76 )+3 .82E-3*(Ta-297 ) 
D3=(0.6*sqr(F)+.011*F)/0.611 
D t = D 1 +D  2 * D 3 

T3',  the  quantum  corrected  value  of  T3  should 
now  be  substituted  for  T3  in  (12). 

In  a similar  manner,  a quantum  correction  is  made 
to  T2  to  yield: 


(13) 


(14) 


(13) 


(16) 

(17) 

(18) 
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T 2 ' = Z e t a ' *T2 


(1?) 


Where  Ze t a ' = n ' / ( E x p ( n ' ) - 1 ) 

And  n' =0.04799 3 2*F/T2  (20) 

The  quantum  corrected  T2'  should  now  be  sub- 
stituted in  (12)  for  T2 . This  completes  the 
quantum  correction  for  (12). 

Some  of  the  other  quantities  calculated  during  the  course  of 
a measurement  are: 

The  temperature  of  liquid  nitrogen  can  be  calculated 
from  atmospheric  pressure  by  using  the  vapor  pressure 
equation  for  liquid  nitrogen: 

B 0 = ( B 1 /T+B2+B3*T+B4*( 12  6.2-T)~1 . 95+B5*T~3) 
B0'=(B6*T~4+B7*T~5+B8*T~6+B9*Ln(T)) 

P=EXP ( B0+B0 ' ) (21) 

wh  ere 

B 1 = 8 . 394409444E3;  B2=-  1 . 89004  5259E3 ; 

B3=-7  . 282229  1 65  ; B4=  1 . 02 2 8 5 0 9 6 6 E-2 ; 

B 5 = 5 . 55606382  5E-4 ; B 6 = - 5 . 9 4 4 5 4 4 6 6 2 E-6 ; 

B 7 = 2 . 7 1 5433932E-8 ; B 8 = -4 . 8 7 9 5 3 5 90 4E - 1 1 ; 

B 9 = 5 . 095360824E2 . 

Computation:  30  iterations  (T=  55  for  the 

1st  iteration)  of  (21)  are  performed  to  obtain 
an  accurate  temperature  output. 

As  part  of  the  iteration  process: 

P= ( 7 6 0 *P  ) -Pa  t m (22) 

where  Patm  = atmospheric  pressure  in  mm 
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Then  TO  = T + ( 8 5 -T 0 ) * AB S ( P ) / AB S ( P ) * 1 7 1 8 . 0 5 4 5 8 2 9 8 ) 


(23) 


T = T 0 for  the  next  iteration. 

After  iterating: 

T 3 = I N T ( 100*(T0  + 0 .00  5 ) ) / 100  +.0  4 

where  the  0.04  K accounts  for  the  average  temperature 
increase  from  the  liquid  nitrogen  head  above  the  load. 


SYSTEM  TEMPERATURE 
Te=[T3-(Y3)*(T2) ] / (Y3-1  ) 

EXCESS  NOISE  RATIO  dB 
ENR=10*Log(Tx-290)/ (290) 
where  290  is  a defined  quantity 

RADIOMETER  SYSTEM  NOISE  FIGURE  dB 
RST=10*Log ( l+Te/290 ) 

RADIOMETER  SYSTEM  GAIN 

RSG=10*Log [ (7 .244 ) * ( 10~13)*(P2 )/ Bw/ (T2+Te) ] 
where  Bw  is  the  system  bandwidth  in  MHz. 
and  ( 7 . 244  ) * ( 1 0 ~ 1 3 ) is  a noise  constant 

To  Calculate  the  OUTPUT  NOISE  TEMPERATURE 
of  a Device  when  an  adaptor  has  been  used 
in  its  calibration  the  following  is  utilized.: 

Tx  = Tx ' / A+T  2 * ( 1 / A- 1 ) 

where  Tx'  is  the  output  noise  temperature  of  the 
device.  Tx  is  the  noise  temperature  with  the  adaptor 
attached,  T2  is  the  ambient  temperature  in  K 


(24) 


(23) 


(26) 


(27) 


(28) 


(29  ) 
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(the  nominal  value  of  T2  is  300  K ) , 

and  A is  the  alpha  for  the  attenuation  present. 

A is  calculated  by:  A = 1 0 * ( -Los  s in  dB/10) 

STANDARD  DEVIATION  is  calculated  by: 

S . D . =Square  root  of  ( (V-T*T/N )/ ( N — 1 ) ) 
where  T is  the  sum  of  the  individual  measurements; 
V is  the  sum  of  the  squares  of  the  individual 
measurements,  and  N is  the  total  number  of 
measurements . 

STANDARD  ERROR  OF  THE  MEAN  is  given  by: 

SEM=S . D ./ Square  root  of  N 

AMBIENT  STANDARD  UNCERTAINTY  (U)  is  0.5K 
R8=(T2/Tx)*ABS(l-(Tx-T2)/(T3-T2) 

DT2/T2=(0. 5/297 ) * 1 00  =0 . 17% 

Let  ES2=the  error  in  % due  to  the  ambient  standard 
in  measuring  the  unknown. 

E S 2 %= ( 0 . 1 7 *R8  ) 

CRYOGENIC  STANDARD  UNCERTAINTY  (U)  is  0.21% 
R9=(T3/T1)*ABS((T1-T2)/ (T3-T2)) 

Let  ES3=Error  in  % due  to  the  cryogenic  standard 
uncertainty  in  measuring  the  unknown. 

E S 3 % = 0 . 2 1 *R9 

UNCERTAINTY  IN  MEASURING  POWER  RATIOS  IS  0.01  dB. 
Power  Factor  (U)=0.0023 
A= 1 +T  e / T 1 


(30) 
(31  ) 


(32) 

(33) 

(34) 


(35) 


(36) 


(37) 
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B = 1 -T  2 / T 1 


(38) 


C= ( T 3+T e ) / (T3-T2 ) 


(39) 


W here  Te  is  defined  as  the  radiometer  system 


temperature . 


Let  EPR=Error  due  to  the  uncertainty  in  measuring 


power  ratio. 


EPR%=0 . 23*ABS ( A-B*C) 


(40) 


See  the  power  equation  for  use  with  the  NBS  Type  IV 


power  meter  later  in  this  section. 


SYSTEM  NONLINEARITY  ERROR 


Let  the  system  non-line a riy  error  in  p e r c e n t = E L 4 


EL4%=(Tx-T2)*(Tx-T3)*(El)*100/Tx 


(41  ) 


where  El=1.2862E-8 

(See  Measurement  and  Calculation  of 

System  Non-linearity  later  in  this  section) 

SWITCH  ASYMMETRY  ERROR  AND  PATH  EFFICIENCY 
(See  Append ix  I ) 

Let  ESA=The  error  in  percent  due  to  switch  asymmetry. 

Err or= 1 . 28*SEM  (42) 

Where  SEM  is  the  Standard  error  of  the  mean  for 
the  actual  measurements  of  the  power  ratios  measured 
when  determining  port  asymmetry. 

The  factor  1.28  assures  a 10  '/  confidence  interval. 


ESA%=(Error*( (T3-T2)/Tx)*100) 


(4  3) 


Let  ESI=  the  error  due  to  less  than  infinite 


isolation  between  the  preamplifier  and  the 
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measurement  ports.  (The  following  error  equation 
is  predicated  on  an  isolation  of  40  dB.) 

Let  A=the  magnitude  of  (Tx-T2)/Tx 
Let  B=the  magnitude  of  (Tx-T3)/Tx 

Let  C = the  magnitude  of  the  reflection  coefficient  of 
the  device  under  test. 

Then  : 

ESI%=0 .0258* ABS (A)+0 .0193* ABS (B)+l 43 . 6(C) /Tx  (44) 

Measurement  and  Calculation  of  System  Linearity 

Linearity  of  the  measurement  system  is  checked  by 

determining  the  noise  temperature  of  a device  at  discrete  power 
levels  selected  to  cover  the  linear  operating  range  of  the 

measurement  system.  These  power  levels  are  set  by  varying  the 
settings  of  the  system  I.  F.  attenuator  and,  normally,  settings 
cover  a 6 dB  range  in  increments  of  1 dB.  50  to  100 

measurements  are  taken  at  each  setting  of  the  attenuator.  All 
measurements  are  repeated  until  enough  samples  of  the  system 
output  over  the  operating  region  are  taken  to  provide  a reliable 
result.  For  analysis,  the  values  obtained  for  the  device  under 
test  are  paired.  These  pairs  are  then  analyzed  to  determine  how 
much  non-linearity  exists  between  the  system  power  levels  they 
represent.  Results  of  all  pairs  analyzed  are  then  combined  to 
determine  the  nonlinearity  error  constant,  El,  which  is 
subsequently  used  to  evaluate  system  non-linearity  in  (41). 

Let  Tx' =nominal  noise  temperature  of  the  device  measured. 

Let  T2'=the  nominal  value  of  the  ambient  standard. 
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Let  T3/=the  nominal  value  of  the  cryogenic  standard. 
(Nominally  these  values  are  10,000,  300,  and  77.) 

Then 

C=l/(Tx'-T2' )*(Tx'-T3' ) (45) 

Let  Pol  and  Po2  represent  the  two  power  levels 
analyzed . 

Let  Txl  and  Tx2=the  measured  noise  temperatures 
obtained  at  the  respective  power  levels. 

Let  Dl  and  D2=the  dial  settings  of  the  I.F. 
attenuator  used  as  a ratio  to  obtained  Pol  and  Po2. 

Then  Er =C ( Tx 2 -Tx 1 ) / ( D 1 -D 2 ) (46) 

Normally  a minimum  of  12  pairs  are  evaluated. 

Then  E1=ABS ( Average  of  Er)+0.64*SEM  (47) 

Where  SEM=The  standard  error  of  the  mean  calculated 
for  Er.  El  is  now  used  in  equation  (41)  to  determine 
system  non-linearity  error.  El  was  determined  to  be 
1 . 2862E-8 . 

Power  Equation  For  Use  With  The  NBS  Type  IV  Power  Meter 

During  a measurement,  the  desired  port  is  selected  and  the 
noise  power  from  the  device  connected  to  that  port  is  measured 
under  computer  control  using  the  Type  IV  power  meter,  reference 
voltage  generator,  and  digital  multimeter.  The  reference  voltage 
output  is  adjusted  to  equal  the  power  meter  voltage  with  no  rf 
power  applied  to  the  thermistor  mount  before  the  measurements 
begin.  This  zeros  the  instrument.  (Refer  to  figure  7.  Rf  power 
is  removed  from  the  thermistor  mount  by  switching  system  switch 
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number  1 to  its  terminated  port.)  Power  is  then  determined  with 
the  scanner  and  system  switches  providing  the  proper  conditions. 

A normal  computer  controlled  sequence  is: 

1)  The  power  meter  voltage  (A)  is  measured  with  the  rf  power 
of  f . 

2)  The  power  meter  voltage  minus  the  reference  voltage  (B) 
is  measured  with  the  power  off. 

3)  The  power  meter  voltage  minus  the  reference  voltage  (C) 
is  measured  with  the  rf  power  on. 

4)  The  power  meter  voltage  (E)  is  measured  with  the  power 
off  to  check,  drift. 

5)  The  power  meter  voltage  minus  the  reference  voltage  (D) 
is  again  checked  with  the  power  off. 

6)  Power  (P)  is  then  obtained  by: 

P=[ ( A+E )-C+(B+D)/2 ] [ C - ( B+D ) / 2 ] / RO  (49) 

where  RO  is  the  resistance  of  the  thermistor  mount  (normally 
200  ohms)  [6]. 
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5.  MAINTENANCE 


A.  EQUIPMENT  DESCRIPTION 

Since  the  measurement  system  is  largely  made  up  of 
commercially  available  equipment,  operating,  periodic 

maintenance,  and  troubleshooting  instructions  can  be  found  in  the 
appropriate  manuals  supplied  with  the  instruments.  A list  of  the 
equipment  presently  being  used,  the  manufacturer,  and  the  model 
number  follows: 

****************************************************************** 

IMPORTANT  NOTICE 

The  specific  components  selected  for  use  with  the  system 
were  chosen  on  the  basis  of  suitability,  availability,  and  costat 
the  time  of  procurement.  They  do  not  necessarily  represent  the 
only  possible  choice  or  even  the  best  choice.  The  National 
Bureau  of  Standards  states  only  that  they  were  used  in  the  system 
described  here.  Substitution  of  nominally  equivalent  components 
meeting  the  same  specifications  should  cause  no  difficulty; 
however  NBS  has  not  tested  all  such  possible  choices. 
***************************************************************** 


INSTRUMENT  NAME 

MANUFACTURER 

MODEL 

1.  Controller 

Hewlett 

Packard 

Co  . 

9 8 4 5 B 

2.  Digital  Multimeter 

John  F . 

F 1 uke  Co . 

8 3 0 2 A 

3.  Digital  Multimeter 

Hewlett 

Packard 

Co  . 

3 4 5 6 A 

4 . Scanner  ( 2 ) 

Hewlett 

Packard 

Co  . 

3 4 9 5 A 

5.  Instrument  Coupler  (2) 

ICS  Electronics 

Co  r p . 

4883 

6.  Synthesizer 

S y s t r o n 

Donne  r 

Co  r p . 

16  18 

6 1 


INSTRUMENT  NAME 

MANUFACTURER 

MODEL 

7.  2-4  GHz  Preamplifier 

A m p 1 i c a 

6331SN 

8 . Amp 1 i f i e r 

Ae  r t e c h 

AM  1 1 0 

9.  Amplifier 

Avant  ek 

A V -4 

10.  Power  Supplies 

Power  Mate  Corp 

BP34D 

11.  Noise  Standard 

NBS 

Cryogenic 

12.  Switch  Driver  Module  (2) 

NBS 

30-60 

13.  Power  Meter 

NBS 

Type  IV 

Technical  details,  schematic  diagrams,  and  parts  lists  for 
the  switch  driver  modules  and  the  associated  intercabling  are 
included  in  this  manual. 

B.  SYSTEM  CHECKS 

A number  of  checks  are  performed  automatically  in  the 
process  of  making  a measurement  with  the  system  and  its  software. 
These  include:  1)  A check  of  system  power  measurements  which  is 
made  by  running  the  system  power  set  portion  of  the  program  at 
the  beginning  of  a measurement  sequence.  If  the  power  meter, 
reference  generator,  and  digital  multimeter  are  not  performing 
adequately,  this  fact  will  be  made  apparent  by  the  values 
displayed  during  this  program  segment.  Erratic  and  obviously 
wrong  power  values  and  large  variations  between  consecutive 
measurements  are  the  usual  indication  of  malfunction  of  these 
instruments.  Band  and  measurement  port  switches  are  also 
exercised  during  this  test,  and  defective  switching  can  cause  a 
either  a substantial  spread  in  measurement  results,  no  change  in 
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power  when  a measurement  port  is  changed,  or  a null  to  be  read  at 
one  or  more  ports.  2)  System  voltage  checks  are  made 
automatically  before  the  measurement  sequence  begins.  The  values 
of  these  voltages  are  displayed  . The  operator  must  approve  the 
displayed  values  before  measurements  continue.  These  checks 
reaffirm  that  the  voltmeter  portion  of  the  digital  multimeters 
are  working  properly^  that  intercabling  between  instruments  is 
intact,  and  that  the  system  power  supplies  are  adjusted  and 
functioning  properly.  3)  Large  scatter  in  successive  readings  of 
power  taken  during  a calibration  are  an  indication  of  erratic 
switch  operation  or  poor  peripheral  instrument  performance. 
Experience  will  dictate  what  this  scatter  should  be  for  a given 
item.  Three  times  the  standard  error  is  normally  below  1 percent 
of  the  noise  power  measured. 

In  addition,  system  operation  is  verified  in  two  other  ways 
during  a measurement  sequence. 

1)  Measurements  of  the  device  under  test  at  two  different 
power  levels  are  required  and  will  pinpoint  excessive  system  non- 
linearity . 

2)  During  a measurement  sequence,  automatic  evaluation  is 
made  of  two  check  standards.  If  the  results  of  the  evaluation 
are  out  of  tolerance,  applicable  reference  standards  with 
effective  noise  temperatures  of  10,000  K,  6,000  K,  3,000  K , 377 
K,  and  77  K can  be  checked  immediately  to  test  system  accuracy. 
These  measurements  provide  an  excellent  check  of  overall  system 
performance.  Results  obtained  by  measurement  of  the  reference 
standards  are  the  single  most  important  indicator  of  system 
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precision  and  accuracy.  These  results  will  show  whether  or  not  a 
major  failure  has  occurred  in  such  a subtle  manner  that  the 
failure  was  not  detected  by  other  checks. 

If  the  system  fails  to  perform  properly  during  any  of  the 
tests,  try  to  pinpoint  the  location  of  the  trouble  by  logically 
analyzing  in  which  test  the  trouble  occurred,  and  working 
backwards  to  isolate  the  instrument  or  component  responsible  for 
the  failure.  For  example,  if  a switch  is  intermittent,  the  tests 
outlined  will  give  an  indication  of  the  measurement  port  involved 
(possibly  a large  scatter  in  power  measured  at  one  port). 
Improper  switch  operation  can  then  be  isolated  to  the  faulty 
switch  and/or  driver  card  by  parts  substitution  and  in-circuit 
testing.  Software  written  specifically  to  exercise  and  test  the 
switches  is  available  in  a program  named  "SWITCH".  This  program 
exercises  all  system  switches  and  indicators  connected  with  the 
switch  driver  modules.  To  use  this  program,  simply  load  "SWITCH" 
and  press  run.  All  switches  are  exercised  in  a logical  sequence, 
and  the  system  indicators  along  with  measurements  that  can  be 
made  at  the  switch  terminals  aid  in  finding  faults  in  this 
section  of  the  measurement  system.  In  the  event  that  a major 
repair  is  made  on  the  system  preamplifiers  or  input  port 
switches,  a complete  analysis  of  the  impedance  and  noise  figure 
of  the  radiometer  "front-end"  should  be  made  and  parameters 
contained  in  the  Z-matrix  changed  if  necessary.  System  linearity 
and  bandwidth  should  also  be  re-evaluated  and  the  constants 
relating  to  these  parameters  changed  in  the  system  software  if  a 
change  in  the  constants  occurred. 

Diagnostic  tests  of  commercial  units,  to  which  faults  have 
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been  isolated,  can  be  performed  by  following  the  instructions 
provided  in  the  applicable  operation  and  service  manual. 

With  the  exception  of  the  switch  test  program,  no 
specialized  diagnostic  software  has  been  written  to  aid  in 
troubleshooting  the  equipment  because  the  above  described  tests 
will  isolate  most  faults  to  at  least  the  instrument  level. 

C.  COMPONENT  DESCRIPTION  AND  TECHNICAL  INFORMATION 
For  commercial  equipment  used  in  the  system,  this 
information  is  available  in  manuals  supplied  by  the  manufacturer. 
1.  Switch  Driver  Modules 

Two  of  these  units  are  utilized.  The  first  one  controls 
the  switches  contained  in  the  30/60  MHz  radiometer  and  the  noise 
power  measuring  section  shared  by  both  systems;  this  unit  is 
comprised  of  power  supplies,  remote  switches,  a decoder  card,  LED 
(light  emitting  diode)  display,  and  switch  driver  output  cards. 
Two  types  of  switch  driver  cards  are  used  in  this  unit;  one  type 
is  used  to  control  15  V switches  and  the  other  type  is  used  to 
provide  control  for  the  25  V programmable  attenuator.  This 
switch  driver  module  also  contains  an  output  display  card  with 
its  associated  analog  meter.  This  output  display  card  is  the 
only  card  requiring  adjustments  and  these  are  covered  with  the 
description  for  this  card.  The  second  switch  driver  module 
contains  driver  cards  to  control  the  measurement  port, 

reflectometer,  and  radiometer  switches  for  all  bands  contained 
in  the  automated  radiometer  from  0.35  to  12.0  GHz.  Two  types  of 
switch  driver  cards  are  used  in  this  module  also.  One  type, 
identical  to  the  second  described  for  the  first  unit  above, 
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controls  the  15  V switches.  The  other  type  though,  is  completely 
different  and  supplies  the  -28  V control  for  the  Transco  rotary 
band  switches  used  in  the  system.  The  modules  are  designed  so 
that  if  a card  is  of  the  same  type,  it  can  be  interchanged 
between  modules.  In  the  following  descriptions,  cards  with  a 
first  digit  of  1 such  as  110,  113,  etc.  are  located  in  the  first 
module  described.  Cards  with  a first  digit  of  2 such  as  210, 
213,  etc.  are  located  in  the  second  module. 

a)  Power  Supplies  and  Switches 

The  switch  driver  modules  contain  one  5V  power  supply 
which  supplies  operating  voltage  for  the  integrated  circuits 
on  the  decoder,  switch  driver,  and  output  display  cards. 
15  V,  25  V , a n d -28  V drive  voltages  for  the  switches  controlled 
by  the  switch  driver  cards  are  also  supplied  to  this  unit  from 
external  power  supplies  after  passing  through  two  remotely 
controlled  switches.  This  permits  the  drive  voltage  for  the 
system  switches  to  be  turned  on  and  off  by  the  controller. 
Also  present  in  one  unit  are  the  positive  and  negative  15V 
supplies  for  the  operational  amplifiers  on  the  output 
display  card. 

b)  Card  110,  Decoder  Card 

This  card  uses  a type  7442  decoder  chip  which  is  a BCD  to 
decimal  decoder  (1  of  10).  Four  of  these  elements  are  used; 
one  spare  which  is  presently  not  used  is  supplied.  Figure 
12  shows  the  truth  table  for  this  type  of  decoder  chip.  In 
Figure  12,  the  BCD  (binary  coded  decimal)  inputs  labeled  D, 
C,  B,  A correspond  to  device  pin  numbers  15,  14,  13,  and  12 


respectively.  The  decimal  outputs  listed  correspond,  in 
ascending  order,  to  device  pin  numbers  1 through  10. 

Inputs  from  the  controller  are  sent  to  the  decoder  card  via 
the  instrument  coupler.  These  inputs  are  decoded  and  sent 
to  the  proper  switch  driver  card  to  achieve  the  desired 
switch  action.  Referring  to  Figures  10  and  7,  outputs  from 
pins  33,  35,  38,  and  40  on  this  card  control  the  switching 
of  ports  0,  1,  2,  and  3.  Outputs  from  pins  41  and  43  select 
either  the  port  0-1  position  or  the  port  2-3  position  of 
switch  #6.  Outputs  from  pins  46  and  48  position  switch  //  5 
to  connect  ports  0-3  or  port  4 to  the  remainder  of  the 
measurement  system.  Outputs  from  pins  49  and  51  select 
either  the  30  MHz  or  the  60  MHz  position  of  switches  4a  and 
4b.  As  can  be  seen  in  Figure  10,  input  pin  24  on  the  decoder 
card  is  the  "strobe”  input  for  all  of  the  decoder  chips. 
This  signal  is  used  to  enable  the  decoder  output.  Removing 
this  signal  provides  for  removing  switch  current  wit  h out 
disturbing  switch  position.  This  signal  is  utilized  in  this 
manner  to  prevent  heating  of  the  switches.  Outputs  from 
pins  7 and  8 on  this  card  are  used  to  control  the  remote 
switches  for  the  15  V and  25  V power  supplies  for  the  switch 
drivers.  The  output  from  pin  9 on  this  card  is  used  as  a 
control  bit  for  the  thermistor  mount  switch  and  provides  for 
removing  current  from  this  switch  after  it  is  properly 
positioned.  The  output  from  pin  6 on  this  card  is  the  return 
flag  signal  to  the  controller  from  this  card. 


The  LF.D  display  on  the  front  panel  of  the  first  switch 


driver  module  is  located  on  the  decoder  card. 


The  upper  8 bits 


of  the  display  represent  the  digital  input  bits  to  the  decoder 
since  a LED  is  connected  to  pins  10,  21,  12,  11,  14,  15, 
16,  and  17.  The  lower  portion  of  the  LED  display  is  formed 
by  connecting  a LED  to  each  of  the  following  output  pins:  33,  34, 


38, 

40  , 41 

, ^3,  46, 

O' 

00 

51  , 

54  , 56  , 7 ,8 

, and  9 . 

By 

observing  the  lower 

portion  of 

the 

display,  the 

output 

o f 

the 

decoder 

card  can  be 

determined 

a t 

any  time.  The 

LED  display 

o n 

the  f ront  panel 

of  the  second 

switch  control 

module 

i s 

arranged  in 

a different  manner, 

but 

the  operation 

is  similar. 

The 

control 

bits  from 

the  decoder 

card  are  routed  to 

the  LEDs 

o n 

the  front  panel,  and  the  front  panel  display  is  labeled  to  show 
which  port,  strobe,  or  other  function  is  enabled  at  the  time. 

Table  4 lists  the  instrument  coupler  control  bits  to  the 
110  decoder  card  and  describes  the  switches  controlled  as  well  as 
the  connections  to  the  computer  to  switch  driver  cable  connector, 
J 1 0 4 . 

c)  Card  210,  Decoder  Card 

Physically,  this  card  is  identical  to  the  110  decoder  card 
except  that  the  LED  output  display  for  this  card  is  located  on 
the  front  panel  of  the  switch  control  module  number  2 instead  of 
being  located  on  the  front  of  the  card. 

Inputs  to  this  card  are  received  from  the  controller  via 
J204.  Refer  to  Figures  10  and  3.  The  port  control  section  on 
this  card  is  identical  to  that  on  the  110  card  with  outputs  at 
pins  33,  34,  38,  40,  41,  43,  46,  and  48  providing  control  for 
measurement  port  switches  24,  25,  23,  and  22.  In  addition 
outputs  from  pins  7,  8,  and  9 provide  control  for 
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rad iome t e r / re f 1 e c t ome t e r switches  13a  and  13b  in  the  2.0  to  4.0 
GHz  radiometer.  Corresponding  switches  in  the  0.33  to  0.50,  0.5 
to  1.0,  4.0  to  8.0,  8.0  to  12.0  GHz  radiometers  are  also 
controlled  by  these  outputs  as  well  as  the  rotary  band  switches. 
Table  5 lists  the  instrument  coupler  control  bits  to  this  card 
and  descr  i b e s the  s wit c hes  controlled  as  well  as  the  computer  to 
switch  driver  connector  pins  contained  in  J20 


TABLE  4 

COMPUTER  TO  SWITCH  DRIVER  CONTROL  VIA  INSTRUMENT  COUPLER  1 

INSTRUMENT  COUPLER  1 


GROUP 
DIGIT 
BCD  — 
J204 

PIN 

Q 4 

- MS  D 

- 842  1 

- BCDE 

Q3 

MSD1 
842  1 
FHJK 

Q2 

MS  D2 
842  1 
LNMP 

Ql 

M S D 3 
842  1 
RSTU 

GROUP 

CPU 

BIT  J 1 0 4 

PIN 

BCD 

SWITCH  CONTROLLED 

1 5 

B 

8 

NOT  USED 

14 

C 

4 

NOT  USED 

Q4 

1 3 

D 

2 

PROG  ATTEN  8DB 

12  E 1 FROG  ATTEN  4 DB 


1 1 K 

10  J 

Q3  9 H 

8 F 


8 PROG  ATTEN  2 DB 

4 PROG  ATTEN  1DB 

2 SWITCH  1 0 A & 10B  3D B STEP 

1 SWITCH  1 POWER  MEASURE 


Q2 


7 

6 

5 

4 


L 

M 

N 

P 


8 +15  V 25  V CONTROL 

4 CONTROL  BIT  (STROBE) 

2 SWITCH  4 A AND  4B  30  OR  60  MHZ 

1 SWITCH  5 PORT  4 


3 R 

2 S 

Q 1 1 T 

0 U 


8 SWITCH  8 & 6 PORT  3 
4 SWITCH  8 & 6 PORT  2 
2 SWITCH  7 & 6 PORT  1 
1 SWITCH  7 & 6 PORT  0 
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TABLE  5 

COMPUTER  TO  SWITCH  DRIVER  CONTROL  VIA  INSTRUMENT  COUPLER  2 

INSTRUMENT  COUPLER  2 


GROUP 
DIGIT 
BCD-- 
J2  04 

PIN 

Q6 

- MS  D 

- 842  1 

- BCDE 

Q5 

MSD1 
842  1 
FHJK 

Q 4 

MSD2 
842  1 
LNMP 

Q 3 Q 2 Q 1 

MSD3  MSD4  MSD5 

8421  8421  8421 

RSTU  dcba  jhfe 

GROUP 

CPU 

BIT  J 2 0 4 

PIN 

BCD 

SWITCH  CONTROLLED 

23 

B 

8 

SW.  1 6 A AND  16B 

2. 0-4.0  RAD./REFL. 

22 

C 

4 

SW.  1 5 A AND  1 5 B 

Q6 

1. 0-2.0  RAD./REFL. 

21 

D 

2 

SW.  21  & S 2 6 B , S26C,  S26D 

POS.  3;  8.0-12.0  BAND 

20 

E 

1 

SW.  20  & S 2 6 B , S26C,  S26D 

POS.  4;  4. 0-8.0  BAND 

1 9 

F 

8 

SW.  19  & S 2 6 B , S26C,  S26D 

POS.  2;  2. 0-4.0  BAND 

l 8 

H 

4 

S 2 6 A POS . 3;  S26B,  S26C, 

Q5 

S26D,  POS.  1;  1. 0-2.0  BAND 

1 7 

J 

2 

S 2 6 A POS.  4;  S26B,  S26C, 

S 2 6 D POS.  5;  .5-1.0  BAND 

1 6 

K 

1 

S 2 6 A POS . 3 ; S26B  , S26C , 

S 2 6 D POS.  6;  .35-. 5 BAND 

1 5 

L 

8 

STROBE  2 

1 4 

N 

4 

STROBE  1 

Q4 

1 3 

N 

2 

SW.  14A  AND  1 4 B RAD./REFL. 

0.5 -1.0  BAND 

12 

P 

1 

STROBE 

TABLE  5 continued 

COMPUTER  TO  SWITCH  DRIVER  CONTROL  VIA  INSTRUMENT  COUPLER  2 

INSTRUMENT  COUPLER  2 


GROUP Q 6 Q5  Q 4 Q3  Q2 

DIGIT MS  D MSD1  M S D 2 MS  D 3 MS  D4 

BCD 842  1 842  1 842  1 842  1 842  1 

J204  PIN BCDE  FHJK  LNMP  RSTU  dcba 


GROUP 

CPU  BIT 

J 2 04  PIN 

BCD 

SWITCH  CONTROLLED 

1 1 

R 

8 

SW.  13A  AND  13B 
0.35-0.50  RAD./REFL. 

10 

S 

4 

SW.  22  PORT  4 

Q3 

9 

T 

2 

SW.  23  AND  24  PORT  2 

8 

U 

1 

SW.  23  AND  25  PORT  1 

7 

d 

8 

SYNTHESIZER  L.O  TO  FREQ 

LOCK 

6 

c 

4 

SW.  9 A AND  9 B 5/30  I.F. 

Q2 

5 

b 

2 

SW.  18A  and  18B  8.0-12 
RAD./REFL. 

4 

a 

1 

SW.  17A  AND  17B  4. 0-8.0 
RAD./REFL. 

3 

j 

8 

SW.  1 1 A AND  1 1 B 94  GHZ 

STEP 

2 

h 

4 

SW.  27A  AND  27B  94  GHZ 

RAD  . 

Ql 

1 

f 

2 

SPARE 

0 

e 

1 

SPARE 

Q1 

MS  D5 
842  1 
jhf  e 
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FIGURE  12 


d)  Switch  Driver  Cards 


The  two  switch  driver  modules  use  three  different  switch 
driver  designs.  One  is  intended  to  use  the  decoder  outputs 
from  cards  110  and  210  to  control  switching.  This  configuration 
is  found  on  cards  111,  112,  and  113,  and  211.  The  other  model 
uses  a data  bit  and  a control  bit  from  the  controller  with  no 
decoder  in  between.  This  configuration  is  found  on  cards  114, 
212,  213,  and  214.  Use  of  this  card  represents  a hardware  update 
to  utilize  a design  incorporated  in  the  automated  radiometer. 
Referring  to  Figure  13,  the  cards  are  configured  for  the  decoder 
input  model  by  installing  jumper  wires  between  points  B and  C, 
and  points  D and  E with  no  connection  between  points  D and  C and 
points  A and  B.  There  are  4 complete  switch  driver  circuits  on  a 
card;  Figure  13  shows  only  one  of  these  circuits  for 
illustration  purposes  with  inputs  and  outputs  for  all  four 
circuits  indicated  by  multiple  pin  numbers.  Inputs  are  in  pairs 
and  produce  outputs  in  pairs  (inputs  of  the  proper  polarity  at 
pins  46  and  48  produce  outputs  of  opposite  polarity  at  pins  9 and 
7).  Connected  to  opposite  sides  of  a switch,  these  outputs  cause 
it  to  toggle  with  a change  in  polarity.  Inputs  which  cause  the 
paired  outputs  to  have  the  same  polarity  produce  a positive 
voltage  which  is  applied  to  both  sides  of  a switch.  There  is  no 
current  flow,  and  as  a result,  the  switch  does  not  toggle.  The 
30/60  MHz  system  port  switches  //  7 and  //8  shown  in  Figure  7 are 
controlled  by  the  outputs  of  driver  card  111.  The  action  of 
switches  #5  and  #6  in  Figure  7 is  controlled  by  driver  card  112. 
The  frequency  selection  switches  //4a  and  //4b  also  shown  in  Figure 
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7 are  controlled  by  the  output  from  d river  card  113.  The  .35  to 
12.0  GHz  radiometer  port  switches  22,  23,  24,  and  25  shown  in 
Figure  3 are  controlled  by  driver  card  211.  Card  114  is  similar 
to  the  other  switch  driver  cards  but,  as  previously  mentioned,  is 
designed  to  operate  without  the  decoder.  To  configure  this 
card,  remove  the  jumpers  described  previously  and  install  jumpers 
between  points  A and  B and  points  D and  C.  Binary  bit  7 or 
decimal  128  from  the  decoder  card  is  used  as  the  enabling  input 
for  the  drivers  on  this  card.  It  is  applied  to  pin  19  on  card 
114.  The  source  for  this  control  bit  is  the  controller.  This 
same  configuration  is  used  on  cards  212,  213,  and  214  to  control 
the  radiometer/ reflectometer  switches  and  some  of  the  band  select 
switches  on  the  .35  to  12.0  GHz  automated  radiometer  system. 

The  25  V switch  driver  cards  115,  and  116  are  identical  to 
card  111  except  for  the  25  V drive  voltage  output.  This  voltage 
makes  it  necessary  to  use  the  DS0025  chip  for  a driver.  In  this 
case  the  resistors  must  be  shorted.  Also,  pin  11  of  the  7400 
chip  should  be  bent  up  or  tied  high.  This  is  necessary  for  the 
switch  driver  to  properly  operate  the  programmable  attenuator 
switches . 

There  is  one  other  switch  driver  configuration  used  with 
this  system.  It  is  used  to  control  the  Transco  rotary  band 
switches.  This  configuration  is  shown  in  Figure  15.  It  is  found 
on  cards  217,  218,  219,  and  220.  This  switch  driver  is  a 
reversed  polarity  model  and  the  drive  voltage  controlled  is  -28V. 
This  requires  a completely  different  design;  silicon  controlled 
rectifiers  are  used  as  the  switch  instead  of  the  clock  driver 
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chips  used  on  the  other  cards.  Control  signals  from  the 
controller  are  inverted  by  the  hex  inverter  chips  at  the  card 
input  and  then  decoded  by  the  and  gate  logic  which  follows. 
Outputs  from  the  AND  gates  turn  on  the  desired  SCR  (silicon 
controlled  rectifier)  and  this  in  turn  provides  a current  path 
for  the  -28  V drive  voltage  through  the  control  winding  of  the 
-Trans co  switches.  Current  through  this  winding  is  quenched  by 
the  opening  of  internal  switch  contacts  which  interrupt  the  drive 
current.  Care  should  therefore  be  exercised  in  programming  these 
devices  since  damage  to  the  switch  can  occur  if  two  inputs  occur 
simultaneously . 

e)  117  Output  Display  Card  Operation  and  Adjustment 

Figure  17  is  the  schematic  diagram  for  this  card.  Figure 
18  is  the  parts  placement  diagram,  and  Figure  19  is  the  schematic 
diagram  for  the  front  panel  connections.  The  output  display 
printed  circuit  card  monitors  the  output  of  the  diode  detector. 
The  input  on  pin  13  is  amplified  by  IC-501  and  input  to  the 
overload  level  comparator,  IC-506,  through  the  ove r 1 oad -ad j us t 
potentiometer  "H"  (R5).  If  the  rf  power  exceeds  5 milliwatts  the 
overload  comparator  triggers  and  latches.  This  energizes  the 
sonalert  alarm  and  overvoltage  LED  via  Pin  52.  The  comparator 
cannot  be  reset  by  pressing  the  reset  button  until  the  power 
level  has  been  reduced  to  a safe  level. 

The  incoming  signal  level  is  also  processed  through  a 
series  of  amplifiers  to  the  front  panel  RF  level  meter.  The 
output  of  the  log-amplifier,  I C 5 0 1 , passes  through  a sample 
and  hold  circuit,  IC-502.  The  output  of  the  sample  and  hold 
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circuit  drives  the  log-amplifier,  I C - 5 0 4 , to  convert  the 

meter  reading  to  a dB  scale.  IC-503  forms  a constant  current 
source  to  set  the  zero  reference  of  the  log  amplifier.  The 
output  of  IC-504  is  connected  to  the  input  of  the  meter 
driver  amplifier,  IC-505.  The  gain  of  this  amplifier  is 
switched  for  gains  of  10,  1,  and  .1  to  obtain  meter  scales 

of  1.0  decibel,  0.1  decibel,  and  0.01  decibel.  Potentiometer 
"D"  (R14)  adjusts  the  times  1 scale  zero  reference. 

Adjustment  of  the  Output  Display  Card 


This  is  the  only  card  in  the  switch  driver  module  which 
requires  adjustment.  Adjustment  is  necessary  only  when  the 
circuit  has  been  repaired.  The  adjustments  establish  the 

logarithmic  amplifier  gain  for  the  decibel  scale  on  the 

front  panel  signal  level  meter  and  set  the  overload  alarm 
threshold.  Complete  alignment  requires  two,  1 milliampere 

constant  current  sources.  Refer  to  Figure  16  when  adjustment  of 
the  1700  card  is  performed.  Adjustments  should  be  made  in 

the  following  order: 

1.  Mount  the  1700  printed  circuit  card  on  a PC  extension 
card  and  remove  the  signal  input  cable  from  the  diode 
detector  to  the  front  panel. 

2.  Connect  an  external  voltmeter  between  TP  1 and  ground. 

Adjust  "A"  (R7),  DC  offset  of  first  amplifier,  for  zero 

on  the  voltmeter. 

3.  Connect  the  external  voltmeter  to  TP  V and  adjust  offset 

control,  "C"  (R9)  for  a zero  reading  on  the  voltmeter. 

4.  Remove  the  jumper  from  test  point  V to  test  point  W . 
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Connect  a temporary  jumper  from  test  point  X to  test 
point  Y.  Adjust  "E"  (R19),  DC  offset  of  the  first  log- 

amplifier,  for  a zero  voltmeter  reading. 

5.  Remove  the  temporary  jumper  from  test  point  X to  test 

point  Y.  Remove  the  jumper  from  TP  Z to  TP  Zl.  Connect 
one  +1  milliampere  constant  current  source  into  TP  Zl 
from  ground.  Connec  the  other  +1  milliampere  constant 
current  source  into  TP  W from  ground.  Set  both 

current  sources  to  1 milliampere.  (Place  two  suitable 
current  meters  in  series  with  the  sources  and  adjust 
the  output  of  the  current  sources  to  1 milliampere  on 
these  meters.)  Connect  the  external  voltmeter  between 

TP  2 and  ground.  Adjust  "F"  (R20),  % the  DC  offset 

of  the  second  stage  of  the  log  amplifier,  for  zero  volts 
on  the  voltmeter. 

6.  Remove  both  constant  current  sources.  Replace  the  jumper 

from  test  point  V to  test  point  W.  Replace  the  jumper 

between  test  point  Z and  test  point  Zl. 

7.  Connect  a suitable  cable  between  the  DET  IN  jack  on  the 
front  panel  and  the  system  diode  detector  output 
connector  at  one  end  of  coaxial  switch  // 1 . 

(a)  Place  a diode  noise  standard  on  port  0 and 
apply  voltage  (normally  28volts)  to  it. 

(b)  After  making  sure  all  ports  are  properly 

terminated,  turn  the  measurement  system  on. 

(c)  Place  the  preamplifier  voltage  switch  to  the  30 
MHz  or  up  position. 


83 


(d)  Turn  on  all  system  power  supplies. 

(e)  Load  the  measurement  program  (30M20). 

(f)  Type  the  following  on  the  9845  keyboard: 

OUTPUT  702  ; "0"  , "0"  , "7"  , "0" 

PRESS  EXECUTE 

(g)  Remove  the  termination  from  the  auxiliary  port 
on  system  switch  //  1 . Place  a suitable 
thermistor  count  on  this  port  and  connect  it  to 
an  external  power  meter. 

(e)  Set  attenuator  A 2 for  1 milliwatt  of  system 
output  power  at  this  port. 

8.  Connect  an  external  voltmeter  to  TP  1.  Adjust  "B"  (R6), 

the  first  amplifier  gain,  for  1 volt  on  the 

voltmeter. 

9.  Adjust  system  attenuator  A2  to  set  the  external  power 

meter  reading  to  2 milliwatts.  Switch  the  meter  range 

selector  on  the  front  panel  to  the  XI  position.  Adjust 
"D"  (R14),  log  reference  zero  offset,  for  a zero  reading 

on  the  front  panel  signal  level  meter. 

10.  Increase  the  setting  of  system  attenuator  A2  by  5 dB. 

Adjust  "G"  ( R 2 1 ) , log- amplifier  gain,  for  a front  panel 

meter  reading  of  -5  divisions.  Decrease  the  attenuator 
A2  setting  10  dB  and  note  the  front  panel  meter 

reading.  Touch  up  "G"  if  necessary  to  obtain 
approximately  a +5  reading  on  the  meter  scale.  Re  check 
the  -5  reading. 

11.  Set  the  input  attenuator  for  a power  level  of  1 
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milliwatt  on  the  power  meter.  Readjust  "D"  for  a +3 
read  ini’  on  the  front  panel  meter. 

12.  Adjust  the  front  panel  attenuators  for  a 5 milliwatts 

( + 7 d B M ) power  indication  on  the  power  meter.  Adjust 
"H"  (R.5),  overload  threshold  adjust , clock wise  until 

the  alarm  sounds.  Now  turn  R5  1/2  turn  counter- 
clockwise. Reduce  the  input  power  and  push  the  reset 
button  on  the  front  panel.  Slowly  increase  the  power 
to  test  the  alarm  threshold.  The  alarm  should  be 
activated  at  the  +5  milliwatt  power  level. 

13.  Adjust  attenuator  A2  until  the  external  power  meter 

reads  2 milliwatts.  Adjust  "D"  (R14),  log  reference 

zero  offset,  for  a zero  reading  on  the  front  panel 
signal  level  meter. 

This  completes  the  alignment  of  the  Output  Display  Card. 
These  adjustments  do  not  affect  system  operation  or  accuracy. 
They  do  however,  affect  the  quality  of  the  information  conveyed 
by  the  display  to  the  operator. 
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2.  INTERCONNECTION  AND  WIRING  DIAGRAMS 


The  system  interconnection  cables  include  the  IEEE  438  bus 
cables  which  connect  the  controller  to  the  scanner,  digital 
multimeter,  and  instrument  coupler.  In  addition  to  the 
instrument  bus  interconnection  cables,  the  equipment  is  coupled 
together  by  the  following: 


TABLE  6 

SYSTEM  CABLES--INSTRUMENTS  TO  SCANNER 


Cable 

# 

Figure 

# 

Source 

Destination 

1 . 

Cable 

1 

20 

DC  Power  Supplies 

Scanner  2 

2 . 

Cable 

1 a 

20 

Scanner 

DMM  1 Rear  Panel 
Input  Connector 

3 . 

Cable 

2 

20 

Type  IV  Power  Meter 

Scanner 

4 . 

Cable 

2a 

20 

Scanner 

Rear  Panel 
Input  Connector 

5 . 

Cable 

3 

2 1 

Ambient  Standard 

External 
Te  rminal  Bd  . 
On  Scanner  1 

7 . 

Cable 

4 

2 1 

Cryogenic  Standard 

External 
Terminal  Bd. 
On  Scanner  1 

8 .. 

Cable 

5 

2 1 

External  Terminal 
Board  on  Scanner 

DMM  Front 
Input  Terminals 

9 . 

Cable 

6 

22 

6-Por t Out  put 

Scanner  2 
Input 

10 

Cable 

8 

22 

Scanner  2 

DMM  2 

The 

cables 

listed 

in  Table  6 are  those  directly  concerned 

with 

the 

transfer  of  measurement  information  from 

the  various 

instruments 

t 0 

the  digital 

multimeters  which  act 

as  central 

processing  points  since  they  measure  the  cable  outputs  and  send 
the  measured  results  back  to  the  controller  on  the  IEEE  488  bus. 


89 


Commands  from  the  controller  are  sent  to  the  switch  control 


modules  via  the  instrument  couplers.  The  switch  control  modules 
then  operate  the  system  switches  by  accessing  them  through  the 
module  to  switch  intercabling.  Figures  23  through  50  detail  the 
pin  connections  of  the  output  jacks  on  the  switch  driver  modules. 
Components  numbered  between  100  and  200  are  associated  with 
switch  driver  module  1 while  those  numbered  between  200  and  300 
are  associated  with  switch  driver  number  2.  An  overview  of  all 

connections  made  to  the  switch  driver  module  from  the  controller 
and  within  the  switch  driver  module  number  1 to  the  various 
switch  driver  cards  is  shown  in  Figure  22. 

Figure  23  is  a diagram  of  J104  which  is  the  input  cable  from 
the  instrument  coupler  to  the  switch  driver  module  number  1. 

Figure  24  is  a diagram  of  J102  which  is  the  output  jack  from 
the  switch  driver  module  to  the  system  switches. 

Figure  25  is  a wiring  list  for  J - 1 0 2 and  its  associated 
cable . 

Figure  26  is  a diagram  showing  the  inputs  and  outputs  to  J - 
110,  the  decoder  edge  connector. 

Figures  27  through  33  are  diagrams  of  the  switch  driver  card 
edge  connectors  J-lll,  J-112,  J — 1 13,  J-114,  J — 1 15,  J-116,  and  J- 
117  contained  in  switch  driver  module  1. 

Figure  34  is  a listing  of  the  connections  to  J-202. 

Figure  35  details  the  switch  driver  module  end  of  the 
transco  switch  driver  control  cable. 

Figure  36  details  the  connections  to  the  switch  driver 
module  from  the  computer. 

Figure  37  shows  the  outputs  from  and  inputs  to  the  decoder 
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card  in  switch  driver  module  2 at  J-210. 


Figures  38-45  show  the  outputs  and  inputs  to  the  switch 
driver  cards  in  switch  driver  module  2 at  J - 2 1 1 , J - 2 1 2 , J - 2 1 3 , J - 
214,  J - 2 1 5 , J-216,  J - 2 1 7 , J-218,  J - 2 1 9 , and  J-220.  Outputs  from 
these  jacks  control  all  radiometer  switches  associated  with  all 
bands  from  .350  GHz  to  12.0  GHz. 

Figures  46-48  show  the  details  of  the  interconnection 
between  the  switch  driver  modules  and  the  switches. 

Figures  49  and  50  are  diagrams  showing  the  pinout  of  the 
outputs  from  both  instrument  couplers.  One  output  connector  is 
designated  J-3a  while  the  other  is  designated  J - 3 b . They  are  the 
instrument  coupler  outputs  to  switch  driver  module  1 and  switch 
driver  module  2 respectively.  The  block  on  the  right  of  each  of 
the  figures  is  a listing  of  control  bits  applied  to  the  connector 
at  the  other  end  of  the  cable  connected  to  J-3.  This  connector 
(designated  P-102  and  P-202)  plugs  into  the  rear  of  each  switch 
driver  module. 

Figure  51  is  a diagram  showing  the  connections  to  the  6-port 
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4.  PARTS  LISTS 


Information  relating  to  the  parts  lists  for  the  digital 
voltmeter,  scanner,  instrument  coupler,  thermistor  mount,  power 
meter,  and  power  supplies  can  be  obtained  from  the  instrument 
manual  supplied  by  the  manufacturer.  The  parts  lists  for  NBS 
manufactured  equipment  will  be  found  in  TABLE  8.  Manufacturers 
Codes  used  in  these  parts  lists  are  tabulated  in  TABLE  7. 
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TABLE  7 

MANUFACTURER'S  CODE  TABLE 


3 M 


AB 


ALCO 


AMPU 


BRNS 


BUD 


CORG 


DATL 


DIAL 


DUNC 


3 M Company,  Electronics  Products  Division 
3 M Center 

St.  Paul,  Minnesota  55101 


Al  len-Brad ley  Company 
1201  S.  Second  Street 
Milwaukee,  Wisconsin  53204 

f 


Alcoswitch  Division  of  Alco  Electronic  Products, 
P.0.  Box  1348 

Lawrence,  Massachusetts  01842 


Amphenol  Connector  Division 
Bunker-Ramo  Corporation 
Broadview,  Illinois  60153 


Bourns,  Incorporated,  Trimpot  Division 
1200  Columbia  Avenue 
Riverside,  California  92507 


Bud  Radio  Incorporated 
4605  East  355th  Street 
Willoushby,  Ohio  44094 


Corning  Glass  Works 
Electronic  Products  Division 
Corning,  New  York  14830 


Datel  Systems,  Incorporated 
1020  Turnpike  Street 
Canton,  Massachusetts  02021 


Dialignt  Corporation 

Division  of  North  American  Phillips  Corporation 
Brooklyn  , New  York  11237 


Duncan  Electric  Company,  Inc. 
2865  Fairview  Road 
Lafayette,  Indiana  47902 
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Inc  . 


T A B L E 7 

MANUFACTURER'S  CODE  TABLE  continued 


GARY 


ITSL 


MOOT 


MONO 


MOT 


NATL 


MBS 


S AMT 


SC  BE 


Garry  Manufacturing,  Inc. 

1010  Jersey  Avenue 

New  Brunswick,  New  Jersey  08902 


Intersil,  Incorporated 
10900  North  Tan tau  Avenue 
Cupertino,  California  95014 


Modutec,  Incorporated 
18  Marshall  Street 
Norwalk,  Connecticut  06854 


Precision  Mono  lit  hies,  Inc. 

1500  Space  Drive 

Santa  Clara,  California  95050 


Hotorala  Semiconductor  Products, 
2002  West  10th  Place 
Tempe,  Arizona  85281 

National  Semiconductor  Corp. 

2900  Semiconductor  Drive 
Santa  Clara,  California  95051 


National  Bureau  of  Standards 
325  Broadway 

Boulder,  Colorado  80302 


Samtec,  Incorporated 
2652  Charlestown  Road 
New  Albany,  Indiana  47150 


Scanbe  Canos  a Industries 
3445  Fletcher  Avenue 
El  Monte,  California  91731 


Incorporated 


TABLE  7 

MANUFACTURER'S  CODE  TABLE  continued 


S E AC 


SPRG 


TIIER 


Seacor,  Incorporated 
598  Broadway 

Norwood,  New  Jersey  07648 


Sprague  Electric  Company 
418  Marshall  Street 
North  Adams,  Massachusetts 


Thermal  loy  Inc. 

2021  West  Valley  View 
Dallas,  Texas  75284 


012147 
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TABLE  8 

PARTS  LIST  FOR  SWITCH  DRIVER  MODULE  COMPONENTS 

DECODER  CARD 

(110,210) 

Catagory  1 Resistors 

R1  lea  Resistor,  Carbon,  0.25W  5%  AB  FSN  5905-681-6462 

Catagory  4 Diodes 


CR 1 -CR24 , 

2 4 e a 

LED  Indicator 

DIAL 

550-0506 

Catagory  5 

UirCU-LLS 

U1  , 

lea 

I . C . 

Hex  Inverter 

T I 

S N 7 4 0 4 N 

U 2 , 

lea 

-L  • C • 

Hex  Inve  r t er 

T I 

SN7404N 

U 3 

lea 

I . C . 

Hex  Inverter 

T I 

SN7404N 

U 4 

lea 

I . C . 

Hex  Inverter 

T I 

SN7404N 

U 5 

lea 

I . c . 

Decoder 

T I 

SN7442N 

U 6 

lea 

I . c . 

Decoder 

T I 

SN7442N 

U 7 

lea 

I . c . 

Decoder 

T I 

SN7442N 

U 8 

lea 

I . c . 

Decoder 

T I 

SN7442N 

U 9 

lea 

I . c . 

Decoder 

T I 

SN7442N 

U 10 

lea 

I . c . 

Quad  Nand  Gate 

T I 

SN7400N 

Catagory  6 Connectors 

lOea  DIP  Socket  14  Pin  THER  8 2 0 4 -N F -4  1 4 - 1 


SWITCH  DRIVER  CARD 

(111,112,113,114,115,116,117,211,212,213,214) 


Catagory 

1 

-Resistors 

R 1 

4 ea 

Resistor, 

Carbon  , 

0 . 2 5W 

5%  , IK 

AB 

FSN 

5905-681-6462 

R 2 

4 ea 

Resistor, 

Carbon , 

0. 2 5W 

5%  , IK 

AB 

FSN 

5905-681-6462 

R 3 

4 ea 

Resistor , 

Carbon , 

0 . 2 5 W 

5 Z , 1 K 

AB 

FSN 

5905-681-6462 

R4 

4 ea 

Resistor , 

Carbon  , 

0 . 25W 

5 % , 1 K 

AB 

FSN 

5905-681-6462 

Catagory  4 Diodes 


CR  1 

4 ea 

Diode 

Rectifier 

M0T0 

1 N 4 0 0 4 

CR2 

4 ea 

Diode 

Rectifier 

M0T0 

1 N 4 0 0 4 

CR  3 

4 ea 

Diode 

Rectifier 

M0T0 

1 N 4 0 0 4 

CR4 

4 ea 

Diode 

Rectifier 

MOTO 

1 N 4 0 0 4 
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TABLE  8 

PARTS  LIST  FOR  SWITCH  DRIVER  MODULE  COMPONENTS  continued 


Cat  a gory  5 Integrated  Circuits 

U1  4 ea  I.  C.  Quad  Nand  Gate  TI  SN7400N 

U2  lea  I.  C.  Hex  Inverter  TI  SN7404N 

U3  2ea  I.  C.  M o s Memory  Clock  Driver  NATL  DS0U25C 

U4  2ea  I.  C.  Mos  Memory  Clock  Driver  NATL  DS0025C 

Catagory  6 -Connectors 


5 ea  14  Pin  DIP  Socket  THER  8204-NF-4 1 4- 1 

4 ea  8 Pin  DIP  Socket  THER  8204 -NF-4 0 8-1 


OUTPUT  DISPLAY  CARD 


(117) 


Catagory  1 


-Resistors 


R 1 

lea 

Resistor,  Carbon,  0. 

25W,  5%,  15K 

AB 

CB 

R 2 

2 e a 

Resistor,  MF, 

0 . 23W  , 

1 % , .IK 

C0RG 

NC  5 

R 3 

4 ea 

Resistor,  MF, 

0 . 25W  , 

1%,  10K 

C0RG 

NC  5 

R4 

lea 

Resistor,  MF, 

0 . 25W  , 

1%,  1 0 0 OK 

C0RG 

NC  5 

R5 

lea 

Resistor,  MF, 

0 . 2 5W  , 

1 % , 5 . IK 

C0RG 

NC  5 

R 6 

3 e a 

Resistor,  Var 

, Trim 

, CERMET,  10K 

BRNS 

3006W- 

R 7 

lea 

Resistor,  Var 

, Trim 

, CERMET,  2 0 K 

BRNS 

3006W-1 

R8 

Same  as  R6 

R 9 

2 e a 

Resistor,  Var, 

Trim, 

CERMET,  IK 

BRNS 

3006W- 

RIO 

4 ea 

Resistor,  MF, 

0 . 23W , 

1 7o , 200K 

CORG 

N C 5 

R 1 1 

Same  as  RIO 

R 1 2 

Same  as  RIO 

R 1 3 

Same  as  RIO 

R 1 4 

Same  as  R6 

R 1 5 

lea 

Resistor,  MF, 

0 . 2 5W  , 

1 % , 2 K 

C0RG 

NC  5 

R 1 6 

Same  as  R3 

R 1 7 

Same  as  R3 

R 1 8 

lea 

Resistor,  MF , 

0 . 25W  , 

1%,  2 0 K 

CORG 

N C 5 

R 1 9 

2 e a 

Resistor,  Var, 

Trim, 

CERMET , 2 K 

BRNS 

300-62- 

R 2 0 

Same  as  R19 

R 2 1 

Same  as  R 9 

R 2 2 

lea 

Resistor,  MF, 

0 . 25W  , 

1 %,  51  IK 

CORG 

N C 5 

R2  3 

lea 

Resistor,  MF, 

0 . 2 5W , 

1 % , IK 

CORG 

N C 5 

R 2 4 

Same  as  R2 

R 2 5 

lea 

Resistor,  MF, 

0 . 2 5W  , 

1 % , .01K 

CORG 

N C 5 

R26 

lea 

Resistor,  Carbon,  0. 

25W,  5%,  .IK 

AB 

CB 

R 2 7 

lea 

Resistor,  Carbon,  0. 

2 5 W , 5%,  2 . 7 K 

AB 

CB 

R 2 8 

Same  as  R3 

R 2 9 

lea 

Resistor,  Carbon,  0. 

2 5 W , 5%,  4 . 7 K 

AB 

CB 

R 30 

2 e a 

Resistor,  Carbon,  0. 

2 5W,  5%,  3 9 K 

AB 

CB 
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TABLE  8 

PARTS  LIST  FOR  SWITCH  DRIVER  MODULE  COMPONENTS  continued 

OUTPUT  DISPLAY  CARD 
(117) 


R 3 1 

Same  as  R 3 0 

R 3 2 

lea 

Resistor,  Carbon, 

0 . 25W  , 

5%, 

2 7 K 

AB 

CB 

R 3 3 

lea 

Resistor,  Carbon, 

0 . 2 5W  , 

5%, 

10K 

AB 

CB 

R 34 

lea 

Resistor,  Carbon, 

0 . 25W  , 

5%, 

IK 

AB 

CB 

R 3 5 

1 ea 

Resistor,  Carbon, 

0 . 2 5 W , 

5 Zo , 

24 . 3 K 

AB 

CB 

Cat  a gory  2 Capacitors 


C 1 

2 e a 

Capacitor, 

Disc,  . 0 0 1 U F 

C 2 

lea 

Capacitor, 

Disc,  Ce  ramie , . 

C 3 

lea 

Capacitor, 

Polycarbonate, 

C 4 

2 e a 

Capacitor , 

Disk,  . 0 1 UF 

C 5 

Same  as  C4 

C 6 

4 e a 

Capacitor , 

Tant,  35V, 

2 2 U F 

C 7 

lea 

Capaci tor, 

DIP,  Mica, 

1 50PF 

C 8 

2 e a 

Capac itor , 

Tant,  20V, 

4 7 U F 

C 9 

Same  as  C8 

CIO 

Same  as  C6 

Cl  1 

Same  as  C6 

C 12 

Same  as  C6 

C 1 3 

lea 

Capacitor  , 

DIP,  Mica, 

1 00PF 

C 14 

3 e a 

Capacitor, 

HI -K  MONO, 

50V  , 

C 1 5 

Same  as  C14 

C 1 6 

Same  as  Cl 

C 1 7 

Same  as  C14 

1UF 

1UIF 


S E AC 


CMK 


1UF 


SPRG  5C023 105X025053 


Catagory  4 • 


-Diodes- 


D 1 

1 ea 

Diode 

, Silicon, 100V 

MOT 

1N4  1 53 

l.  a l a g o i y 

IC  1 

lea 

I . C . 

Op  Amp 

MONO 

OP-05C 

I C 2 

lea 

I . C . 

Sample  and  Hold 

DATL 

SHM-LM-2 

I C 3 

lea 

I . C . 

F ET , Op  Amp 

NATL 

LH0042C 

I C 4 

lea 

I . C 

. Log  Amp 

ITSL  I CL  8048ECBE 

I C 5 

lea 

I . C . 

Op  Amp 

NATL 

LM741C 
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TABLE  8 

PARTS  LIST  FOR  SWITCH  DRIVER  MODULE  COMPONENTS  continued 

OUTPUT  DISPLAY  CARD 


(117) 


I C 6 

2 e a 

I . C . Timer 

NATL 

LM  55  5 

I C 7 

Same  as 

I C 6 

I C 8 

1 e a 

I . C . One  Shot 

T I 

SN74121N 

I C 9 

lea 

I.  C.  Nand  Drive 

T I 

SN7552N 

IC  1 1 

lea 

' I . 

C.  Hex  Inverter 

T I 

SN74LS04N 

Catagory 

7 

m • 

/ 

K 1 

2 e a 

Socket , 

Round,  DIP,  8Pin 

SANT 

K2 

lea 

Socket , 

Dual,  In-line,  DIP 

SANT 

IC-316-SC 

K 3 

Same  as 

K 1 

J 1 

2 ea 

Jack,  Jumper,  IC,  lPin 

GARY 

AA-C 

J 2 

Same  as 

J1 

T 1 

lea 

Term,  Test  Point,  lPin 

GARY 

AA-C 

Catagory 

10 

Ha  rdware 

B 1 

PC  Brd  , 

RF  Process  Ckt 

NBS 

PC-500 

TRANSCO  SWITCH  DRIVER  CARD 
( 2 1 7 , 2 1 8,2  1 9,220  ) 

Catagory  1 Resistors 

R1  8ea  Resistor,  1/4  watt,  carbon,  IK, 5%  AB  CB 


R2  Same  as  R1 
R3  Same  as  Rl 
R4  Same  as  Rl 
R5  Same  as  Rl 
R6  Same  as  Rl 
R7  Same  as  Rl 
R8  Same  as  Rl 


Catagory  4 Diodes 

SCR1  8ea  Silicon  Controlled  Rectifier  RCA  COXO  448  40526 


SCR2  Same  as  SCR1 
SCR3  Same  as  SCR1 
SCR4  Same  as  SCRl 
SCR5  Same  as  SCRl 
SCR6  Same  as  SCRl 
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T A B L E 8 

PARTS  LIST  FOR  SWITCH  DRIVER  MODULE  COMPONENTS  continued 

TRANSCO  SWITCH  DRIVER  CARD 
(217,218,219,220) 

Catagory  4 Diodes 

SCR7  Same  as  SCRl 

SCR8  Same  as  SCRl 


Catagory  5 Integrated  Circuits 

IC1  lea  I.C.  Hex  Inverter  T I S N 7 4 0 4 

I C 2 2 e a I.  C.  Quad  2 Input  And  Gate  TI  SN  7408 


Catagory  10 Hardware 

B 1 PC  Brd,  RF  Process  Ckt  MBS  PC-8-74 


Front  Panel  and  Chassis 


Catagory  1 Resistors 

R 1 lea  Resistor,  Var,  10  Turn,  10K  DUNC  3253 

Catagory  3 Diodes 

D 1 lea  LED, Green  DIAL  9173 

D 2 lea  LED,  . Red  DIAL  550-0506 


Catagory  6 Connectors 


J 1 

lea 

Connec  tor 

, Panel,  BN  C 

AM  P!I 

U 6 4 9 2 / U 

J 102 

lea 

Connector 

, Amp , 50  Pin 

AM  PH 

AMP  2 0 0 2 7 7 2 

J 104 

lea 

Same  as 

J 1 0 2 

J 1 1 0 

6 e a 

Edge  Connector,  PC,  50  Pin 

AM  PH 

261-10030 

Jill 

Same  a s 

J1  10 

J 1 1 2 

Same  as 

J 1 10 

J 1 1 3 

S a m e as 

J1  10 

J 1 1 4 

Same  as 

J1  10 

J 1 1 7 

Same  a s 

J1  10 

Catagory  8 

S 1 

lea 

Switch, 

AC  Power,  Toggle 

ALC0 

M ST  1 0 5 D 

S 2 

lea 

Switch, 

Push  Button 

ALC0 

MSP  1 0 5 F 

S3 

lea 

Switch, 

Rotary  , 3Pole 

ALCO 

M R B - 3 - 3 

C a t a g 

ory  9 

Meters--  

Ml 

lea 

Meter, Panel,  0 Center,  1 . 5 M a 

MODT 

2 5 DMA 1 . 5U 1 . 5 
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TABLE  8 

PARTS  LIST  FOR  SWITCH  DRIVER  MODULE  COMPONENTS  continued 


Ca  tagory 


Catagory 


Ca  t a g o ry 


Front  Panel  and  Chassis 

10 Hardware 

Plate,  Front  Panel  7"X9"  BUD  91F363 

Card  Cage  SC  BE  6004 7 A 


10 


Hardware 


Fuse holder 


Littlefuse  142001 


1 1 


— Miscellaneous 

Power  Supply  5V,  1A  Standard 


SPS/ 1 5 
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APPENDIX  I 


PORT  ASYMMETRY  MEASUREMENTS 
NBS  AUTOMATED  RADIOMETER 
2.0  TO  4.0  GHZ 
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PURPOSE  OF  TESTS: 


The  purpose  of.  the  tests  was  to  determine  the  error  to  be 
expected  due  to  port  asymmetry  of  the  NBS  Automated  Radiometer  in 
the  2.0  to  4.0  GHz  frequency  range. 

DESCRIPTION  OF  TESTS: 

The  port  asymmetry  tests  are  based  on  an  error  model  created 
by  W.  C.  Daywitt.  To  determine  port  asymmetry  using  this  model 
requires  two  noise  sources  and  an  ambient  load.  The  noise 
temperature  of  the  two  noise  sources  need  not  be  known.  Refer  to 
Figure  1A.  This  figure  shows  the  system  port  arrangement  used  in 
the  tests.  All  ports  used  have  type  N coaxial  connectors  as  did 
the  ambient  load  and  two  noise  sources. 

To  evaluate  the  error  due  to  port  asymmetry,  the  two  noise 
sources  (XI  and  X2 ) are  connected  to  ports  0 and  1 respectively. 
A special  computer  program  is  utilized  which  provides  for  the 
determination  of  the  complex  reflection  coefficients  of  the 
system  measurement  ports  and  the  two  noise  sources  mentioned 
previously . 

This  program  also  accomplishes  the  automatic  switching  of 
the  port  switches  and  measurement  of  the  noise  power  at  ports  0, 
4,  and  I in  that  order.  This  is  done  a minimum  of  25  times  and 
the  ratio  of  power  at  port  0 (noise  source  1)  and  the  power  at 
port  4 (ambient  load)  is  calculated  for  each  switching  cycle. 
The  same  ratio  is  determined  for  noise  power  at  port  1 (noise 
source  2)  and  port  4 (ambient  load).  At  the  end  of  25 
measurements,  the  average  of  the  two  ratios  is  then  calculated 
and  stored.  The  two  noise  sources  are  then  interchanged  and  the 
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SYSTEM  PORT  SWITCHES  USED  IN  ASYMMETRY  TESTS 


process  repeated. 


Upon 


completion  of  the  second  set  of 


measurements  , the  port  asymmetry  is  calculated  as  follows: 


Refer  to  Figure  2A. 

With  source  1 at  port  U and  source  2 at  port  1: 

XO  = ( 1 -Mag  ( G x 1 ) "2  ) ( 1 -.'lag  (Gs  1 ) ~2.)  ( 1 ) 

Y0=(l-GxlReal*GslReal+GxlImag*Gslimag)~2  (2) 

ZO=(GxlReal*GslImag  + G s 1 R e a 1 * G x 1 I m a g ) ~ 2 (3) 

Mx 1 =X0 / ( YO  + ZO ) (4) 


Where  Gxl=Complex  reflection  coefficient  of  the  source  at  port  0 
Gsl=Complex  reflection  coefficient  of  the  system  at  port  U 


X 1 = ( 1 -M a g ( G x 2 ) ~ 2 ) ( 1 -M  a g ( G s 2 ) ~ 2 ) (5  ) 

Yl=(l-Gx2Real*Gs2Real+Gs2Imag*Gx2lmag)~2  (6) 

Z 1 = ( Gx2  Rea 1 *Gs  2 Imag+Gs  2 Re  a 1 *Gx2 I mag ) ~ 2 (7) 

Mx2=Xl /(Yl+Zl ) (8) 


Where  Gx2=complex  reflection  coefficient  of  source  at  port  1 
Gs2=coraplex  reflection  coefficient  of  system  at  port  1 
When  the  noise  sources  connected  to  ports  1 and  2 are 
interchanged,  llxl'  and  Mx  2 ' are  calculated  using  equations  (1) 
through  (8).  Gx2  is  substituted  for  Gxl  in  equations  (1)  through 
(3),  resulting  in  Mxl/  when  solving  equation  (4).  Gxl  is 
substituted  for  Gx2  in  equations  (5)  through  (7),  resulting  in 
Mx2 ' when  solving  equation  (8). 

Then: 

[ (Mxl *Mx2 ' ) / (Mx2*Mxl ,)]*[(Yx2-l)/(Yxl,-l)]*l(Yx2,-l)/Yxl-l)]=N  ( 9 ) 

(Ns/Nx)‘2=N  (10) 

N s / N x= ( N ) ~ 1 / 2 (11) 

Asymmetry  indB=10*Ln(Ns/Nx)  (12) 

Where 
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Reference  plane 
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SWITCH  ASYMMETRY  NS/NX 
FIGURE  2 A 


1 4 0 


Yxl=Power  measured  at  port  0/Power  measured  at  port  4 (13) 

Yx2=Power  measured  at  port  1/Power  measured  at  port  4 (14) 

( Power  measured  at  port  4 is  ambient  power) 

And 

Y x 1 ' and  Y x 2 ' are  calculated  with  (13)  and  (14)  after  the 
noise  sources  are  interchanged. 

MEASUREMENT  RESULTS 

Using  the  above  procedures  the  following  measurement  results 
were  obtained  with  type  N connectors  and  no  adaptors  were  used. 

FREQUENCY  MHZ  PORT  ASYMMETRY  DECIBELS 


2000 

0.0044 

2250 

0 . 0036 

2500 

0.0032 

2850 

0.0012 

3000 

0.0022 

32  50 

0 . 005  1 

3500 

-0.0021 

3750 

0.0017 

4000 

0.0078 

Average  0.0030 

These  results  remain  essentially  the  same  regardless  of  port 
selection  as  long  as  the  switches  operate  properly.  Use  of 
various  adaptors  such  as  GR900  to  N can  result  in  asymmetry  as 
high  as  0.015  dB.  This  suggests  that  asymmetry  should  be 
evaluated  for  the  specific  adaptors  used.  As  a part  of  this 
test,  ports  with  right  angle  N adaptors  were  evaluated,  and  found 
to  exhibit  asymmetry  in  the  range  of  0.006  to  0.009  decibel  at 
2000,  3000,  and  4000  Mhz . 


14  1 


A P P E N n IX  II 


PROGRAM  LISTINGS  AND  VARIABLE  CROSS  REFERENCE  TABLES 
This  appendix  contains  the  listing  of  the  measurement 
program,  RAD7EF.  This  program  is  currently  used  to  make 
measurements  with  the  automated  radiometer.  The  program  is 
divided  into  segments  and  each  segment  listed  in  order.  Each 
segment  listing  is  followed  by  the  cross  reference  table  for  the 
variables  referenced. 


1 4 2 


A.  PROGRAM  RAD7EF 


8 SEPTEMBER  1983 
RAD7EF 

10  ! REV  2 RAD7EF  7 SEPTEMBER  1983  GJC  AVAIL  MEM  THIS  VS  58176 

20  ! THIS  VS  HAS  CODE  TO  UTILIZE  PORT  2 FOR  UNK  AND  3 FOR  STD 

30  ! QUANTUM  CORRECTION  IMPLEMENTED 

40  ! RE -STORE" RAD 7EF : F8"  ! 6 SEPTEMBER  1983  1015 

50  OPTION  BASE  1 

60  COM  F(4 , 1 5 ) ,Z ( 1 , 80 ) ,T1 , T2 , T3 ,Qr ( 1 2 ) ,Qi ( 1 2 ) ,Final(5 ) 

70  COM  File, Flag 

80  DIM  H$[100],C$[100],G$[100],R$[100],V(20),C(16,4,10),Q(3,100) 

90  ! OUTPUT  704  ; "000000000000000000000000000"  ! CLEAR  SYNTH 
100  MAT  F=ZER 

110  MAT  Q=ZER 

120  MAT  Z=ZER 

130  P0$="N0M 1L7K7"  ! SYNTHESIZER  POWER  TO  2MW 

140  F r = 1 

150  Cc  = 1 

160  CALL  Volt(V(*),Fr,Cc,C(*)) 

170  Ae  t = 1 

180  PRINTER  IS  16 

190  DISP  "INSURE  THAT  ALL  PORTS  HAVE  DEVICES  ATTACHED  THEN  PRESS  CONT" 

200  INPUT  "AMBIENT  TEMP " , Tt 

210  T2  = 27  3 . 1 5+Tt 

220  INPUT  "STANDARD  TEMP",T3 

230  Tx  = 0 

240  P 0 = 1 

250  ! SET  SYNTHESIZER  TO  PROPER  FREQUENCY  AND  LEVEL 

260  OUTPUT  704  ; "00H0G260E0D0C0B0A0N0M2L5K5" 

270  OUTPUT  1 0 0 3 ; " 8 " , " 8 " , " ? " , " 0 " , " 4 " , " 2 " 

280  OUTPUT  1 0 0 3 ; " 8 " , " 8 " , " 0 " , " 0 " , " 4 " , " 2 " 

290  OUTPUT  702  ; "0" , "8" , "7 " , "0" 

300  OUTPUT  702  ; "0"  , "8" , "0" , "0" 

310  PRINTER  IS  16 

320  FOR  K= 1 TO  5 

330  CALL  Power(Pl ,P2,P3,P0,Aet) 

340  Y1-P1/P2 

350  Y3=P3/P2 

360  Tx=Tx+(T2+(T3-T2)*(Yl-l )/(Y3-l )) 

370  T4=(T3-Y3*T2 ) /(Y3-1 ) 

380  PRINTER  IS  16 

390  PRINT  "T4  = " ; T4  , "Tx=>"  ; Tx/K 

400  G=10*L0G(7 ,244E13*P2/ • 9 5 / ( T 2+T  3 ) ) !30Mhz  IF 

410  PRINT  "G  AIN  =* " ; G ; "d  B" 

420  PRINT  Pl*1000 ,P2*1000 ,P3*1000 

430  Ptest=Ptest+Pl 

440  NEXT  K 
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RAD7EF 


450  P 1 =P t e s t / ( K- 1 ) 

460  PRINTER  IS  16 

470  PRINT  "AVERAGE  POWER  AT  PORT  0 IS  " ; P 1 * 1 000 ; "MILLIWATTS " 

480  PRINT  "AVERAGE  TEMP  AT  PORT  0 I S " ; Tx / ( K- 1 ) ; " KEL V I N S " 

490  PRINT  "PAUSE  580" 

500  PAUSE 

510  MASS  STORAGE  IS  ":F8" 

520  LINPUT  "AMBIENT  STANDARD  TEMPERATURE  IN  C",H$[1,10] 

530  H $ [ 1 , 10]=VAL$(VAL(H$[1  , 10] )+273.15) 

540  PRINT  11  $[1,101 

550  LINPUT  "BAROMETRIC  P RE S S U RE " , H $ [ 1 1 , 2 0 ] 

560  INPUT  "APPROXIMATE  VALUE  OF  UNKNOWN  TO  BE  TESTED", E7 
570  INPUT  "MAXIMUM  DEVIATION  FROM  NOMINAL  TO  BE  ALLOWED",  E8 

580  PRINTER  IS  16 

590  ! OUTPUT  9 ; " S 04 : 2 6 : 1 5 : 2 3 : 0 0 " ! RESET  REAL  TIME  CLOCK 

600  Q=FNS(4 ) 

610  OUTPUT  9 ; " R " 

620  ENTER  9 ; P $ 

630  PRINT  TAB( 15) ,P$; " : 1983" 

640  CALL  Get_paramet ers ( C$ , G$ , R$ , F 1 , F2 , F3 , Fn ,N3 , N8 ) 

650  ! 

660  ! START  CAL  OF  SYSTEM  DETERMINE  PATH  LOSS  AND  START  CAL  SELFCHECK 

670  ! 

680  I n i t = I 

690  CALL  Cal(C(*> , P0$  , Init  ) 

700  ! 

710  Ae  t = 1 

720  CALL  Corr2 ( Cl  , C$  , G$ , R$ , E7 , E8 , Q( * ) , Ae t ) 

730  ! 

740  Init=2 

750  CALL  Cal(C(*),PO$,Init) 

760  ! START  CAL  OF  UNKNOWN 

770  ! 

780  Aet=2 

790  CALL  Out(Cl , C $ , G $ , H$ , R $ , E 7 , E 8 , Q ( * ) ,Aet) 

800  ! 

810  ! GOTO  100 

820  ! STORE  MEAS  RESULTS  AND  DESCRIPTION  OF  DEVICE 

n 3 0 ! 

840  CALL  Descr ( P$ ,C$ , G$ , R$ , H$ , F 1 , F2 , F 3 ,N 3 , N8 , Q(* ) ) 

850  PRINT  "PAUSE  1020  PROGRAM  END  PRESS  CONT  TO  RESTART" 

860  PAUSE 

870  GOTO  90 

880  END 

MAIN 


Ae  t 

170 

330 

7 1 0 

720 

780 

790 

c$ 

80 

6 4 0 

720 

790 

840 

c( 

80 

1 60 

690 

7 50 

C 1 

720 

790 
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RAD7EF 


Cc 

150 

1 6 0 

E 7 

560 

720 

7 90 

E 8 

570 

720 

790 

F ( 

* 

100 

F 1 

640 

840 

F 2 

640 

840 

F 3 

640 

840 

Fn 

640 

Fr 

140 

160 

G 

400 

4 10 

G $ 

8 0 

640 

720 

790 

840 

H $ 

80 

520 

5 30 

530 

540 

550 

790 

84  0 

I n i t 

680 

690 

740 

7 50 

K 

320 

3 90 

440 

450 

480 

N 3 

640 

840 

N 8 

640 

84  0 

<s> 

620 

630 

840 

PO 

240 

330 

PO$ 

130 

6 90 

750 

PI 

3 30 

340 

420 

430 

450 

470 

P2 

330 

340 

350 

400 

420 

P 3 

330 

3 50 

420 

P t e s t 

430 

430 

450 

Q 

600 

Q ( 

80 

1 10 

720 

790 

840 

R$ 

80 

640 

720 

790 

840 

T 2 

* 

210 

350 

360 

370 

400 
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T 3 

* 

220 

3 60 

370 

400 

T 4 

370 

390 

Tt 

200 

2 10 

Tx 

2 30 

360 

3 60 

390 

4 80 

v( 

80 

1 60 

Y 1 

3 40 

360 

Y 3 

350 

360 

370 

3 70 

Z( 

* 

120 
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890  DEF  FNB(Q)  ! ! ( FNB ) 

900  OPTION  BASE  1 

910  COM  F(*  ) ,Z (*  ) ,T1 , T2 , T3 ,Qr (* ) ,Qi (*  ) ,Final(*  ) 
920  COM  File, Flag 

930  FOR  1=1  TO  Q 
940  BEEP 

950  WAIT  AB S ( 1 00 * ( I -4 ) ) 

960  NEXT  I 
970  RETURN  0 
980  FNEND 

FNB  ( 


I 

930 

950 

960 

Q 

890 

930 

147 


RAD7EF 


990  DEF  FNN ( Q ) ! ! ( FNN  ) 

1000  OPTION  BASE  1 

1010  COM  F ( * ) , Z ( * ) , T 1 ,T2,T3,Qr(*) , Qi ( * ) ,Final(*) 
1020  COM  File  .Flag 
1030  DISP  "(  =NC ) : " ; Q ; 

1040  LINPUT  B $ 

1050  IF  B $ [ 1 , 1 ] = " " THEN  1070 
1060  RETURN  VAL ( B $ ) 

1070  RETURN  Q 
1080  FNEND 

FNN  ( 


B $ 1040  1050  1060 

Q 990  1030  1070 
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1090  DEF  FN0(P$,Q$)  !!(FNO) 

1100  OPTION  BASE  1 

1110  COM  F ( * ) , Z ( * ) ,T1 ,T2,T3,Qr(*) , Qi ( * ) ,Final(*) 

1120  COM  File, Flag 

1130  IF  12=0  THEN  1180 

1140  PRINT  "(  =NC )NOW : ";P$; 

1130  LINPUT  Q $ 

1160  IF  Q$="  " THEN  1240 
1170  P $ = Q $ 

1180  PRINT  "(  =N C ) N 0 W : ";P$ 

1190  I0=FNS(1 ) 

1200  WAIT  50 
1210  LINPUT  Q $ 

1220  IF  Q$="  " THEN  1240 
1 230  P $ = Q $ 

1240  RETURN  Q 
1250  FNEND 

FNO  ( 


10 

1190 

12 

1 1 30 

P$ 

1090 

1140 

1170 

1 180 

1230 

Q 

1240 

Q$ 

1090 

1150 

1160 

1 170 

1210 

1220 


1230 
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RAD7EF 


1 260  DEF  FNS (Q ) ! ! ( FNS ) 

1270  OPTION  BASE  1 

1 280  COM  F ( * ) , Z ( * ) , T1 , T2 , T3 , Qr ( * ) ,Qi ( * ) , Final ( * ) 

1 2 90  COM  File, Flag 

1300  FOR  1=1  TO  Q 

1310  PRINT 

1320  NEXT  I 

1330  RETURN  0 

1340  FNEND 

FNS  ( 


I 1300  1320 

Q 1260  1300 


150 


R A D 7 E F 


13  50 

SUB  Cal(C(*) ,PO$, Init) 

13  6 0 

OPTION  BASF  1 

1370 

COM  F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*) 

1380 

COM  File, Flag 

1390 

DIM  D$[50]  ,P(16,4),Pdiode(6,4,21),Zdiode(2,4),Z$[  10  0] 

1400 

DIM  Gl(16),Gli(16),Glr(16),Pa(16,7),Gla(16),F$[50] 

14  10 

PRINTER  IS  16 

1420 

; 

1430 

! GOTO  1750 

1440 

FOR  C a 1 = 1 TO  2 

1450 

Prt  =Cal 

1460 

Ca l 2 : ! 

14  70 

Re  c a 1 = 0 

1480 

IF  C a 1 = 1 THEN  GOTO  1520 

14  90 

PRINT  "CAL  SEQ  FOR  STANDARD  PORT" 

1 500 

Pout  $ = "3" 

15  10 

GOTO  1540 

1520 

PRINT  "CAL  SEQ  FOR  MEASUREMENT  PORT" 

1530 

Pout$="2" 

1540 

I 1=0 

1550 

F 1 =Z ( 1 ,37) 

1560 

F 2 =Z (1,38) 

1570 

F 3 =Z ( 1 , 39  ) 

1580 

Fn= ( F2-F 1 ) / F3  + 1 !=1 

1590 

F = F 1 

1600 

GOTO  3130  ! TH I S PATH  FOR  READ  DATA  ONLY 

1610 

GO  SUB  Zerdiode 

1620 

GOTO  1880 

1630 

j *******************  DIODE  ZERO  CHECK*************************** 

1640 

Zerdiode:  ! 

1650 

PRINTER  IS  16 

1660 

» 

1670 

Ndiode=4 

1680 

C = 0 

1690 

Cc  = 1 

1700 

Ccc  = 1 

1710 

! ENABLE  SINGLE  FREQUENCY 

1720 

F 1 = ( Z ( 1 , 3 8 ) - Z ( 1 , 3 7 ) ) / 2 + 1 

1730 

F n = 1 

1740 

PRINT  "Fn=" , Fn 

1750 

OUTPUT  1003  ; "8" , "8" , " ? " ,Pout $ , "4" , "2 " ! 30  IF  PORT  0 

AND 

2-4 

SYSTEM 

CC 

1760 

OUTPUT  1003  ; "8"  , "8"  , "0" , Pout  $ , "4" , "0" ! 30  IF  PORT  0 

AND 

2-4 

SYSTEM 

CC 

1770 

P = 3 

1780 

P0$="N 1M4L9K9"  ! MAX  ATTEN  MIN  PWR  FROM  SYNTH 

1790 

M=  1 

1800 

PRINT  "Dzero" 

1810 

GOSUB  Meas 

1820 

PRINTER  IS  16 

1830 

PRINT  Zdiode(* ) 

1840 

OUTPUT  1003  ; "0" , "8" , " , Pout  $ , "4" , "2 " 

1850 

OUTPUT  1003; "0 " , " 8 " , " 0 " , P o u t $ , " 4 " , " 2 " 

1860 

IF  Re  c a 1 = 1 THEN  GOTO  Resume 

1870 

RETURN 

1880 

? ********************ca L SEQUENCE*********************************** 

RAD7EF 


1890 

! 

1900 

OUTPUT  1003  ; "0 

" ,"8"  ,"?"  , P o u t $ , "4" , " 2 " 

1910 

OUTPUT  1003 ; "0 

" , "8"  , "0"  , Pout$ , "4" , "2" 

1920 

OUTPUT  704 

; "00H0G2F0E0D0C0B0A0N0M4L0K4" 

13000  MHZ1.5MW  AT  LO 

1930 

RESET  1022 

1940 

M = 1 

! RESET  FOR  FREQ  SUB  PROGRAM 

1950 

C = 1 ! Enables 

C MATRIX 

1960 

C c = 1 ! Ca  1 ITEM  II)  1=0. U.T  2=OFFSET  3-9  = 

SLIDING  SHORT  10-14= 

SLIDING  LOAD  1 5 = AMBIENT  STD  (7  SLIDING 

SHORT  AND  5 SLIDING 

LOAD  POS) 

1970 

Ccc  = 3 

1980 

» itiiiiiiiii 

!!!!!!!!! SET  CAL  POWER  LEVEL 

*1*1111*111*11(1111 

1990 

F 1 = Z ( 1 ,37) 

2000 

F2=Z( 1 , 38 ) 

2010 

F 3 = Z (1,39) 

2020 

Fn= (F2-F 1 ) /F3+1  !=1 

2030 

P = 3 

2 0,40 

GO  SUB  Setpwr 

2050 

GOTO  2450 

2060 

ON  Cal  GOTO  2070,2090 

2070 

PRINT  "PLACE 

NOISE  STANDARD  (D.  U.  T.  ) ON 

PORT" ; Pout $; "PRESS  CONT" 

2080 

GOTO  2100 

2090 

PRINT  "PLACE 

CRYO  STANDARD  ON  PORT";Pout$; 

"PRESS  CONT" 

2100 

Cc=  1 

2110 

P = 3 

2 120 

M = 1 

2130 

PRINT  "D.U.T 

Cc=" ; Cc 

2 140 

Q = FN  B ( 3 ) 

2 150 

PAUSE 

2160 

M 1 = 1 

2 170 

Seq  = 4 

2 1 80 

GOSUB  Meas 

2 1 90 

GOTO  3120 

2200 

M=  1 

22  10 

PRINT  "PLACE 

OFFSET  ON  PORT  0 AND  PRESS  CONTINUE" 

2220 

Q = FN  B ( 3 ) 

2230 

PAUSE 

2240 

Se  q = 3 

2250 

Cc  = 2 

2260 

PRINT  "OFFSET 

Cc  = " ; Cc 

2270 

GOSUB  Meas 

2280 

! GOTO  2150 

2290 

PRINT  "PLACE 

IMPED  CK  ON  PORT  AND  PRESS  CONT" 

2300 

M = 1 

2310 

Cc  = 1 6 

2320 

S e q = 5 

2 330 

Q=FNB ( 3 ) 

2340 

PAUSE 

2350 

GOSUB  Meas 

2 360 

ON  Init  GOTO 

2 370 , 2060 

2370 

PRINT  "PLACE 

AUXILIARY  NOISE  SOURCE  ON  PO RT " ; P o ut $ ; " AND  PRESS  CONT 

2380 

Q=Fnb ( 3 ) 

2390 

M=  1 

2400 

Cc  = 1 5 

2410 

S e q = 6 
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2420  PAUSE 
2430  GOSUB  Meas 
2440  GOTO  3120 
2450  M = 1 

2460  PRINT  "PLACE  SLIDING  SHORT  ON  PORT  0 AND  PRESS  CONTINUE" 
2470  N p = 1 
2480  C p = 1 
2490  Cc  = 3 

2500  PRINT  "SLIDING  SHORT  Cc=3  POS  0" 

2.510  S e q = 1 

2520  S s = 1 ! 1 S T POSITION 

2530  Q = FN  B ( 3 ) 

2540  N 1 =7 
2550  PAUSE 
2560  GOSUB  Meas 

2570  ! SLIDING  SHORT  ROUTINE  7 POSITIONS 

2580  S s $ = V AL $ ( S s ) 

2590  Q$=" PRESS  CONT" 

2600  D$=" SLIDE  POS" 

2610  PRINT  D $ ; " ";Ss$;"  ";Q$ 

2620  Q = FNB ( 3 ) 

2630  PAUSE 

2640  M = 1 

2650  Cc=Cc+l 

2660  C p = 1 

2670  Np=  1 

2680  Ss=Ss+l 

2690  PRINT  Ss 

2700  IF  S s = 8 THEN  27  40 

2710  PRINT  "SS  POS"&D$&Ss$ ; "Cc=" ; Cc 

2720  GOSUB  Meas 

2730  GOTO  2580 

2740  ! SLIDING  LOAD  5 POSITIONS 

27  50  M = 1 

2760  PRINT  "PLACE  SLIDING  LOAD  ON  PORT  0 AND  PRESS  CONT" 

2770  N p = 1 
2780  C p = 1 
2790  Cc=  1 0 
2800  S e q = 2 
2810  S s = 0 
2820  Q = FNB ( 3 ) 

2830  N 2 = 5 

2840  PAUSE 

2850  GOSUB  Meas 

2860  S s = 1 

2870  S s $ = V AL  $ ( S s ) 

2880  Q $ = "P  RE  S S CONT" 

2890  D $ = " SL I DE  POS" 

2900  PRINT  D $ ; " ";Ss$;"  ";Q$ 

2910  Q = FNB ( 3 ) 

2920  PAUSE 
2930  M= 1 
2940  Cc=Cc+ 1 
2950  Cp=l 
2960  Np=l 
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2970  S s = S s + 1 
2980  PRINT  Ss 

2990  IF  S s = 6 THEN  GOTO  2200 

3000  GOSUB  Meas 

3010  GOTO  2870 

3020  S e q = 1 

3030  GOTO  3130 

3040  PRINT  "CRYO  STANDARD  PROGRAMMED  FOR  PORT  2" 

3050  OUTPUT  1 003  ; "0”  , "8"  , " ? " , ”2"  , ”4 " , "0" ! 30  IF  PORT  3 AND  2-4 
3060  OUTPUT  1 00  3 ; "0  " , "8  " , "0  " , " 2 " , " 4 " , "0  " ! CC 
3070  Q=FNB(3) 

3080  Seq=6 
3090  C p = 1 
3100  N p = 1 
3110  GOSUB  Meas 
3120  NEXT  Cal 

3130  INPUT  "CMATRIX  FILE  NUMBER", Num 
3140  MASS  STORAGE  IS  " : F 8 , 1" 

3150  Num=INT (Num ) 

3160  F i 1 e $ = " CM AT " & V AL  $ (Num) 

3170  ! CREATE  File$,80 

3180  ASSIGN  #1  TO  File$ 

3190  ! PRINT  #1;C(*) ,Zdiode(*)  ,Z(*) 

3200  READ  #l;C(*),Zdiode(*),Z(*) 

3210  ASSIGN  #1  TO  * 

3220  FOR  1=1  TO  15 
3230  FOR  F r = 1 TO  2*Fn 
3240  PRINTER  IS  16 

32  50  PRINT  C(I,1  , F r ) ; C ( I , 2 , F r ) ; C ( 1 , 3 , F r ) ; C ( I , 4 , F r ) 

3260  NEXT  Fr 

3270  NEXT  I 

3280  PRINT 

3290  ! 7 SLIDING  SHORT  AND  5 SLIDING  LOAD  POS  ARE  USED 

3300  ! ************* \ 

3310  PRINT  "CAL#", Cal 
3320  PRINT 
3330  FOR  Cal = 1 TO  2 
3340  FOR  Ck=  1 TO  15 
3350  FOR  F r = 1 TO  2*Fn 

3360  PRINT  C (Ck , 1 , Fr ) ,C(Ck , 2 , Fr  ) ,C( Ck , 3 , Fr ) ,C(Ck , 4 , Fr  ) 

3370  NEXT  Fr 

3380  NEXT  Ck 

3390  PRINT 

3400  PRINT 

3410  NEXT  Cal 
3420  PRINTER  IS  0 
34  30  F 1 = Z ( 1 ,37) 

3440  F2=Z(1 ,38) 

34  50  F3=Z( 1 , 39  ) 

3460  Fn=(F2-F 1 ) / F 3+ 1 
3470  F r = 1 

3480  GOTO  Calz 
3490  Sel:  ! 

3500  A=0 

3510  FOR  D= 1 0 TO  13  IPROGRAM  SCANNER  CHANNELS 
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3520  IF  Ccc<>2  THEN  3550 

3530  PRINT  "PLACE  SLIDING  SHORT  ON  PORT  0 — SLIDE  FOR  MAX  VOLTAGE" 
3540  PRINT  "PRESS  CONTINUE  WHEN  MAX  IS  OBTAINED" 

3550  Di-D-10+1 

3560  OUTPUT  1007;D 
3570  WAIT  125 

3580  IF  C cc=  1 THEN  GOTO  3610 
3590  WAIT  500 
3600  GOTO  3620 
3610  WAIT  500 

3620  CALL  Dmm ( V 1 , C ( * ) , F r , Cc , C , Di ) 

3630  IF  CccOl  THEN  GOTO  3660 

3640  Zdiode(Cal , Di ) = V 1 

3650  GOTO  3770 

3660  IF  C a 1 > 1 THEN  GOTO  3700 

3670  C ( Cc , Di  , F r ) = V 1 

3680  C(Cc , Di ,Fr )=ABS (C(Cc , Di ,Fr)-Z diode (Cal , Di ) ) 

3690  GOTO  3730 
3700  C ( Cc , Di ,F r+Fn ) =V 1 

3710  C ( Cc , Di ,Fr+Fn)=ABS (C( Cc , Di ,Fr+Fn ) -Zd iode ( Ca 1 , Di ) ) 

3720  PRINTER  IS  0 

3730  PRINTER  IS  16 

3740  PRINT  Cc , Seq , "FR=" ; Fr ; Cal 

3750  PRINT  C(Cc ,Di ,Fr) ;C(Cc ,Di  ,Fr  + Fn) 

3760  PRINTER  IS  16 
3770  NEXT  D 
3780  RETURN 
3790  Meas:  ! 

3800  PRINT  "MEAS" ,F1 ,F2 ,Fn 
3810  Ml =1 

3820  IF  Ccc=  1 THEN  Fn=l 
3830  FOR  F r = 1 TO  Fn 

3840  CALL  F r e q ( F , F $ , F 1 $ , P 0 $ , M , Cc c ) 

3850  Q = 5 
3860  GOSUB  Sel 
3870  M=2 

3880  F=F4=Fl*10~6+Fr*F3*10~6 

3890  PRINT  "F4" ,F4 , "F" , F 
3900  NEXT  Fr 
3910  RETURN 
3920  Setpwr:  ! 


3930 

ON  P GOTO  3940, 

3960,3980,4000,4020,4040,4060 

3940 

P$="N0M3L6K0" 

! - 3DBM  P $ = "N  0M4L  OK  0 

39  50 

GOTO  4070 

3960 

P$="N0M3L9K0" 

! -6 . ODBM 

3970 

GOTO  4070 

3980 

P $= "N  0M4L  2K0 " 

! - 1 3 DBM 

3990 

GOTO  4070 

4000 

P $ = "N  0M4L  5 KO " 

! -1 6 DBM 

4010 

GOTO  4070 

4020 

P $= "N 0M4L8K0 " 

! -2  3 DBM 

4030 

GOTO  4070 

4040 

P $ = "N  OM  5L 1 KO " 

! - 2 6 DBM 

4050 

GOTO  4070 

4060 

P$="N0M5L4K0" 

! - 2 6 DBM 
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4070  PRINT  "P,  P $ " ; P , P $ 

4080  P0$=P$ 

4090  RETURN 

4100  Calz:!  OPTION  BASE  1 
4 110  ! 

4130  DIM  A(5,5),B(20,5),Cm(5,20),U(8),V(8),W(l,l),X(20,l),Y(10,l),Zm(4,l 
4 140  ! 

4150  ! Read  real  time  clock 

4160  OUTPUT  9 ; " R" 

4170  ENTER  9;T$ 

4180  Date=830000+VAL(T$ [ 1,2] ) *100+VAL(T$ [4,5]) 

4 l 90  Time$  = T$ [ 7 ; 5 ] 

4200  ! Fn  "FREQ  I N#  G HZ " , F r e q ! SET  UP  MULTIPLE  FREQ  INDEX  Fn  = lFr 

4210  ! INPUT  "NO.  OF  SHORT  POSITIONS  AND  LOAD  PO S I TI ON S " , N 1 , N 2 

4220  N 1 =7 

42  30  N 2 = 5 

4240  F r = 1 

4250  0=0 

4260  PRINTER  IS  16  ! 7 & 9is  HPIB,  0 is  address  of  printer 

4270  Dvm= 1022  ! HPIB  + address  22 

4280  Scanner=1007  ! HPIB  + address  7 

4290  INPUT  "FREQUENCY  # FOR  C ALC UL AT I ON " , S e t 

4300  F 1 =Z ( 1 , 3 7 ) -Z ( 1 ,39) 

4310  F ( 1 , 1 ) = F ( 2 , 1 )=Fl+Set*Z(l  ,39) 

4320  F 1 = F = F ( 1,1) 

4330  ! ******************************************************************* 
4340  ! Index  1=1  for  D.U.T.,  2 FOR  OFFSET,  3-9  for  sliding  short, 

10-14  for  sliding  load,  AND  15  for  AMBIENT  STD. 

4350  PRINTER  IS  0 
4360  F ( Fr  , 1 ) = F 1 

4370  F z = ( Z ( 1 ,38  ) — Z( 1 , 37  ))/Z( 1 , 3 9 ) + 1 

4380  PRINT  " DATE Date ; " TIME : " ; Time$ 

4390  PRINTER  IS  16 

44  10  ! 

4420  ! Start  calibration  calculations 

4430  Pout$="2" 

4440  FOR  P r t = 1 TO  2 

44  50  IF  P r t = 2 THEN  Pout$  = "3" 

4460  FOR  C c = 1 TO  16 

4470  Fn=Fz 

4480  Fr=Set 

4490  ON  Prt  GOTO  4500,4550 

4 500  P ( Cc  , 2 ) = C ( Cc  , 2 , Set  ) 

4 5 10  P ( Cc  , 4 ) = C( Cc  , 4 , Set ) 

4520  P ( Cc  , 1 ) =C ( Cc  , 1 , Set  ) 

4 5 30  P ( Cc , 3 ) = C ( Cc  , 3 , Set  ) 

4540  GOTO  4590 

4550  P (Cc , 2 )=C( Cc , 2 , Set+Fn) 

4560  P(Cc ,4)=C(Cc ,4, Set+Fn) 

4570  P(Cc  , 1 )=C(Cc  , 1 , Set  + Fn) 

4580  P( Cc , 3 )=C( Cc , 3 , Set+Fn ) 

4590  NEXT  Cc 

4600  PRINT  USING  4 6 1 0 ; P ( 1 , 4 ) , P ( 1 , 1 ) , P ( 1 , 3 ) , P ( 1 , 2 ) ! P 3 , P 5 , P 6 , P 4 
4610  IMAGE  4(MDZ.5D11X) 
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4 6 2 0 
4 6 3 0 
4 6 40 
4 6 50 
4660 

46  7 0 
4680 
4 6 90 
4700 

47  10 
47  20 
47  30 
4 7 40 
47  50 
4760 

47  70 
4 7 80 
4790 
4800 

48  10 
4820 
4830 
4840 
4850 
4860 
4880 
4890 

4 9 00 

49  10 
4920 
4940 
49  50 
4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5080 

5090 


5100 

5110 

5120 


C a 1 = 1 


Fnn=F n 
F rt=  1 

INPUT  "1  FOR  OPEN  2 FOR  OF F S ET " , I m pe d 
! I m p r*  d = 2 

ON  Imped  GOTO  4680,4700 
GO  SUB  Open 
GOTO  4710 
GOSUB  Gamo 
FOR  F r = 1 TO  Fn 
RAD 


F = F ( F r , 1 ) 
G 1 =Gr ( Fr  ) 
G2  = G1( Fr  ) 


PRINTER  IS  0 
PRINT  "FREQUENCY:" 
PRINT  "Real  ";G1," 
NEXT  Fr 
! GOSUB  Pon 

! DIODE  1 CHANNEL 
! DIODE  2 CHANNEL 
! DIODE  3 CHANNEL 
! DIODE  4 CHANNEL 


; F ( F r , Ca 1 ) 

I m a g ";G2; "MAG"; SQR(G1 ~ 2+G  2 

! P UT  POWERS  IN  P ARRAY  IN 

10  P 5 

11  P 4 

12  P 6 

13  P 3 


2 ) ; "ANG" ; Ang( Fr ) 
PROPER  ORDERAUSE 


! SOLVE  ELLIPSE  FOR  SLIDING  SHORT 
PRINT 

0 = FN  A ( A , A ( * ) ,B,B(*),Cm,Cm(*),D,E,F,Fr>G,J,K,N,Nl,0,P,P(*),Q,W(*),X(*) 
, Y(*) ) 

? 0=FNA(A,A(*) , B , B ( * ) , C m , C m ( * ) ,D,E,F,G,J,K,N,N1 , 0 , P , P ( * ) , Q , W ( * ) , X ( * ) 

, Y(*  ) ) 

0=FNI(A,B,Cm,F,G,0,W(*) ,Fr) 

PRINT 

! CALC  K,L,M,RE&IM(-N/M) 

PRINT  "ROOT  RESIDUES=" 

0=FNBm(A,A(*),Al,B,B(*),Bl,Cm,Cm(*),Cl,D,E,F,G,H,I,J,K,L,Nl,N2,N3,0,P 

,P(*),Q,Rl,R2,S,S0,Sl,S2,T,Wl,W2,W3,X(*),Y(*),Zm(*)) 

PRINT 

PRINT  "VALUES  FOR  R 1 , W 1 , R2 , W 2 , W 3 " 

PRINT  USING  5000;R1  ,W1 ,R2 , W 2 , W 3 
IMAGE  5(MZ . 5D2X) 

t 

! REDUNDANCY  APPLICATION 

0=FNL( A, A(*) ,B ,B(*) ,Cm,Cm(*) ,Fr ,1 , J ,K,L,N1 ,N2 , 0, P , P(* ) ,Q, R1 , R2 ,T,W(*) 
,W1  ,W2,W3,X(*) ,Y(*)) 

! 0=FNL ( A , A ( * ),B,B(*),Cm,Cm(*),Fr,I,J,K,L,Nl,N2,0,P,P(*),Q,Rl(*) 

, R 2 ( * ) , T , W ( * ) , W 1 , W 2 , W 3 , X ( * ) , Y ( * ) ) 

PRINT  USING  5000;R1 ,W1 , R2 ,W2 ,W3 
PRINT 

! COMP  A 1 ,B1 ,C1  , A 2 , B 2 , C 2 

0=FNC(A,A(*),Al,A2,B,B(*),Bl,B2,Cm,Cm(*),Cl,C2,D,E,F,G,H,I,J,K,Nl,N2, 

N3,P,P(*),P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W(*),W1,W2,W3,X(*) 

, Y(*)  ) 

PRINT  USING  5110; "VALUE  S FOR  ( RC S * 2 -RS ~ 2 ) , RC S X , RC S Y= " , A 1 , B 1 , C 1 
IMAGE  34 A , 3 (XZ . 5DX  ) 

PRINT  USING  5110; "VALUES  FOR  ( RCL ~ 2 -RL ~ 2 ) , RC LX , RCLY= " , A2 , B 2 , C 2 
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5130  PRINT  USING  5140;"SL  APPROX  G AMM 4 = " , S Q R ( ABS ( ( B 2 “ 2 +C 2 “ 2 - A 2 ) / S QR ( B 1 “ 2 
+ C1  ~2-Al ) ) ) 

5140  IMAGE  1 6 A , XZ  . 5 D 
5 150  ! 

5160  ! CALC  B , ( C / A ) 

5170  0=FND(A,Al,B,Bl,B8,B9,Cm,Cl,C8,C9,D,E,F,G,H,I,K,Nl,N2,0,P,P(*),P3,P4 
,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W1,W2,W3) 

5180  PRINT  USING  5 2 0 0 ; S QR ( B 8 “ 2 +B 9 * 2 ) , ATN ( B 9 / B 8 ) 

5190  PRINT  "TEST"; SQR(B8~2+B9~2 ) ,ATN (B9/B8) 

5200  IMAGE  "MAG  & ARG  B = " 2 ( XMZ . 5DX ) 

5210  PRINT  USING  5 2 3 0 ; S QR ( C 8 ~ 2 +C 9 “ 2 ) , ATN ( C 9 / C 8 ) 

5220  PRINT  "TEST  2" ; SQR(C8~2+C9~2 ) , ATN (C9/C8 ) 

5230  IMAGE  "MAG  & ARG  C / A= " 2 ( XM Z . 5 DX ) 

5240  ! 

5250  ! CALC ( 1 / A ) 

5 2 60  0 = FNE ( A, A 8 , A 9 , B,B8,B9,Cm,C8,C9,D,E,F,G,Gl,G2,H,I,K,0,P,P(*),P3,P4,P5 
,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W1,W2,W3,X,Y) 

5270  PRINT  USING  52 80 ; SQR ( A8 * 2+A9 ~ 2 ) 

5280  IMAGE  "MAG  1/A="D.5D 
5290  ! 

5300  ! CALC  6-PORT  PARAMETERS 

5310  0=FNH(A,A8,A9,B,B8,B9,C8,C9,G,H,I,0,R,T,Wl,W2,W3,X,Y,Prt,Pout$) 

5320  PRINT  USING  5330 
5330  IMAGE  @ 

5340  ! ************************************************************ 

5350  ! 

5360  ! Start  measurements 

5 3 7 0 ! 

5380  Rcoef:  ! 

5390  PRINTER  IS  0 

5400  PRIN'J’  "FREQUENCY-"; Z( 1 , 37 );  " PORT  =";Pout$ 

5410  ! 

5420  ! Measure  Reflection  Coefficient 

5430  ! GOSUBRe  f 1 

5440  ! PRINT  "PRESS  CONTINUE  TO  MEASURE  MORE  REFLECTION" 

5450  ! PAUSE 

5460  ! GO  TO  Rcoef 

5470  Goto=l 

5480  ! Z:INPUT  "Z  Meas,  input  ID//  other  than  1-19  or  3-19  for  SS  and  SL"  ,11 

5490  IF  I n i t = 1 THEN  GOTO  55  30 
5500  FOR  11=1  TO  16 

5510  IF  (11=15)  OR  (11=2)  THEN  GOTO  5870 

5520  GOTO  5550 

5530  FOR  11=2  TO  16 

5540  IF  11=2  THEN  GOTO  5870 

5550  It=I 1 

5560  PRINT  !"P(3)","P(5)","P(6)","P(4)" 

5570  PRINT  II 
5590  P4=P(I1,2) 

5600  P 3 = P ( I 1 , 4 ) 

5610  P 5 = P ( I 1 , 1 ) 

5620  P6=P(I1,3) 

5630  C c = I 1 

5640  0 = FNT(A, A8 , A9 , B ,B8 ,B9 ,Cm ,C8 ,C9 , D, E , F ,G, H, I ,K, 0,P, P (* ) , P3 , P4 , P5 , P6  , Q 
,R,R1 ,R2 ,S ,S3,S4,S5,S6,T,W1 ,W2,W3,X,Y,Z8,Fr,Il , G 1 i ( * ) , G I r ( * ) , G I ( * ) 
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, Gla ( * ) , Pout  $ ) 

5650  ON  Init  GOTO  5660,5760 
5660  IF  11015  THEN  GOTO  5870 
5670  F(Prt+2,ll )=G1(15) 

5680  F(Prt+2 , 1 2 )=Gla( 1 5 ) 

5690  F ( P r t + 2 , 13)=Glr(15) 

5700  F (Prt+2 , 14 )=Gli ( 1 5 ) 

5710  F(Prt+2,9)=F(Prt ,9) 

5720  F ( P r t + 2 , 7 )=F(Prt ,7 ) 

5730  F(Prt+2  , 3 ) = F(,Prt  ,T) 

5740  F(Prt+2,5)=F(Prt  ,5) 

5750  GOTO  5870 
5760  F(Prt  , 1 1 )=G1  ( 1 ) 

5770  F(Prt,12)=Gla(l) 

5780  F(Prt , 13 )=Glr ( 1 ) 

5790  F(Prt,14)=Gli(l) 

5800  IF  11=16  THEN  5820 
5810  GOTO  5870 
5820  PRINTER  IS  0 

5830  PRINT  "IMPEDANCE  CK  MAG , ANG , RE AL , IMAG" 

5840  PRINT  G 1 ( 1 6 ) ,Gla( 16) ,Glr(16) ,Gli( 16) 

5850  PRINT 
5860  PRINTER  IS  16 
5870  NEXT  II 
5880  Mismatchl:! 

5890  PRINTER  IS  0 

5900  ON  Init  GOTO  6360,5910 

5910  Ml  = (l-F(Prt,ll)~2)*(l-F(Prt,9K2) 

5920  M2=(l-F(Prt,13)*F(Prt,3)+F(Prt,14)*F(Prt,5))~2+(F(Prt,13)*F(Prt,5) 

+F  (Prt  , 14  )*F(Prt  , 3 ) ) "2 
5930  F(Prt  ,15 )=M1 /M2 
5940  IF  P r t = 1 THEN  GOTO  6020 
5950  FOR  1=1  TO  2 
5960  PRINT 

5970  PRINT  F(I  , 1 ) ,F(I  ,2  ) ,F(I  , 3)  ,F(I  ,4) 

5980  PRINT  F(I,5),F(I,6),F(I,7),F(I,8) 

5990  PRINT  F(I  , 9 ) ,F(I , 10  ) ,F(I , 1 1 ) ,F(I , 12  ) 

6000  PRINT  F(I  , 13  ) ,F(I , 14)  ,F(I , 15) 

6010  NEXT  I 
6020  PRINT 

6030  PRINT  "SYSTEM  D.  U.  T.  PORT  2" 

6040  PRINT  " | Gg | " , " Ang  g","Xg","Yg" 

6050  PRINT  F( 1 , 1 1 ) ,F( 1 , 12)  ,F(  1 , 13)  ,F(  1 , 14) 

6060  PRINT 

6070  PRINT  " | G 2 | " , " AN  G 2","X2","Y2" 

6080  PRINT  F( 1 ,9) ,F(1 , 7 ) ,F(1 ,3) ,F( 1 ,5) 

6090  PRINT 

6100  Z ( 1 ,61  ) = F(1  , 13) 

6110  Z( 1 , 62  ) = F( 1 , 14  ) 

6120  Z( 1 ,63  ) = F(  1 , 12  ) 

6130  Z( 1 ,64  ) = F(  1 , 1 1 ) 

6140  IF  Prt  = 2 THEN  GOTO  6160 
6150  GOTO  6750 

6160  PRINT  "SYSTEM  STD.  PORT  0" 

6170  PRINT  " | G g | " , " An  g g","Xg","Yg" 
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6180 
6190 
6200 
62  10 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 

63  10 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 

6400 

64  1 0 
6420 
64  30 
64  40 
64  50 
6460 
6470 
6480 
6490 
6500 
6510 
6 5 20 
6530 
6540 
6550 
6560 
6570 
6 5 8 0 
6 590 
6600 
6610 
6620 
6630 
6640 

66  50 
6660 
6670 
6680 
6690 
6700 

67  10 


PRINT  F(2,11),F(2,12),F(2,13),F(2,14) 

PRINT 

PRINT  " | G 2 | " AN G 2 " , " X2 " , " Y 2 " 

PRINT  F(2,9),F(2,7),F(2,3),F(2,5) 

PRINT 

PRINT  "RESULT  SET  1 M EQU AT  I ON  =Mx " 

PRINT  F ( 1 , 1 5 ) 

PRINT  "RESULT  SET  2 M EQU AT I ON  =Ms " 

PRINT  F ( 2 , 1 5 ) 

PRINT  "MISMATCH  FACTOR  Ms/Mx" 

PRINT  F ( 2 , 1 5)/F(l , 15) 

Final(Set)=F(2,15)/F(l ,15) 

Z ( S e t ,65  ) = Final  (Set  ) 

M o n e = A 8 S ( F ( 1 , 1 3 ) -F ( 1 , 3 ) -F ( 2 , 1 3 ) +F ( 2 , 3 ) ) ! ( | xx-x2-xs+x0 | ) 

Mtwo  = 6*ABS(F( 1 , 14 ) + F ( 1 , 5 ) -F ( 2 , 1 4 ) -F ( 2 , 5)) ! 6 * ( | Yx+y2-Ys-y0 | ) 

Z ( S e t , 2 6 ) = . 4 * ( Mo ne  + M t wo ) [Mismatch  / E r r o r = . 4 * ( Mo n e+M t wo ) 

PRINT 
GOTO  6570 
PRINT 
PRINT 

Ml  = (l-F(Prt  + 2,llK2)*(l-F(Prt  + 2,9)~2) 

M2=( 1-F (Prt+2 , 1 3 )*F( Prt+2 , 3 )+F( Prt+2 , 14 )*F( Prt+2 , 5 ) ) ~2  + ( F(Pr t + 2 , 1 3 ) 

*F(Prt+2 , 5) +F (Prt+2 , 14)*F(Prt+2 , 3 ) ) ~ 2 

F ( P r t + 2 , 1 5 )=M1 /M2 

IF  P r t = 1 THEN  GOTO  67  50 

PRINT  "AUXILIARY  STD  #1  PORT  2" 

PRINT  " | G g | " , " An g g"  , "Xg"  , "Yg" 

PRINT  F(3,11),F(3,12),F(3,13),F(3,14) 

PRINT 

PRINT  " | G 2 | " ANG  2","X2","Y2" 

PRINT  F(3,9),F(3,7),F(3,3),F(3,5) 

PRINT 

PRINT  "AUXILIARY  STD  #2  PORT  0" 

PRINT  " | Gg | " , " Ang  g","Xg","Yg" 

PRINT  F(4,11),F(4,12),F(4,13),F(4,14) 

PRINT 

PRINT  " | G 2 | " AN  G 2","X2","Y2" 

PRINT  F(4,9),F(4,7),F(4,3),F(4,5) 

PRINT 

PRINTER  IS  16 

LINPUT  "CAL  FREQ  #",Cal$ 

ON  Init  GOTO  6590,6650 
Cal$="AUX"&Cal$ 

CREATE  C a 1 $ , 2 0 
ASSIGN  //  3 TO  C a 1 $ 

PRINT  # 3 ; F ( * ) 

ASSIGN  # 3 TO  * 

GOTO  6760 
Cal$="Cal"&Cal$ 

CREATE  Cal $,20 
ASSIGN  #3  TO  Ca 1 $ 

PRINT  #3; F(*)  ,Final(*) 

ASSIGN  # 3 TO  * 

FOR  1=1  TO  5 

PRINT  "FREQ  I , "MISMATCH  F ACTOR" ; F i na 1 ( I ) 
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6720  NEXT  I 
6730  ! RETURN 
6740  PRINT 
6750  NEXT  Prt 
6760  SUBEXIT 

6770  ! 

6780  Ntirae:!  Gets  new  time  from  clock 
6790  OUTPUT  9;"R" 

6800  ENTER  9;Nt$ 

6810  Ne wt $ = N t $ [ 7 ; 5 ] 

6820  RETURN 
6830  ! 

6840  Re  f 1 : ! REFLECTION  COEFFICIENT  MEASUREMENT  ROUTINE 

6850  IF  Re c a 1 = 1 THEN  GOTO  6950 
6860  PRINTER  IS  16 

6870  PRINT  "DEVICE  TO  BE  TESTED  (D.  U.  T.  ) ON  PORT  0 PRESS  CONT" 

6880  Q=FNB ( 6 ) 

6890  PRINT  "Zdiode" 

6900  PRINT  Zdiode(*) 

6910  Recal=l 
6920  F r = 1 
6930  GOTO  Zerdiode 
6940  Resume : ! 

6950  OUTPUT  1 00 3 ; "0 " , "8 " , " ? " , Pout  $ , " 4 " , "0 " ! 30  IF  PORT  3 AND  2-4  REFL 
6960  OUTPUT  1003  ; "0"  , "8" , "0" , Pout  $ , "4" , "0" ! 30  IF  PORT  0 AND  2-4  REFL  CC 
6970  PRINT  "CONNECT  DEVICE  TO  BE  MEASURED  AND  PRESS  CONTINUE" 

6980  GOSUB  Ntime 
6990  PRINTER  IS  0 

7000  PRINT  TAB(40); "DATE:";Date;"  TIME:";Newt$ 

7010  F=F ( Fr , 1 ) 

7020  LINPUT  "DEVICE  DESC",P$ 

7030  PRINT  P$ 

7040  F 9 = Z ( 1 , 3 7 ) 

7050  F 1 =F  9 
7060  F 2 =F 9 
7070  Cc  = 1 1 = 16 
7080  F 3 = 1 
7090  Fn= 1 
7100  M = 1 
7110  Ccc  = 3 
7120  C = 1 
7130  P = 3 

7140  GOSUB  Setpwr 
7150  GOSUB  Meas 
7160  FOR  D i = 1 TO  4 
7170  Vl=C(Cc ,Di ,Fr) 

7180  P ( Cc , Di ) = V 1 
7190  PRINTER  IS  0 
7200  PRINT  P ( Cc  , Di ) 

7210  0=FNT(A,A8,A9,B,B8,B9,Cm,C8,C9,D,E,F,G,H,I,K,0,P,P(*),P3,P4,P5,P6,Q 
,R,Rl,R2,S,S3,S4,S5,S6,T,Wl,W2,W3,X,Y,Z8,Fr,Il,Gli(*),Glr(*),Gl(*> 

, Gla ( * ) , Pout  $ ) 

7220  PRINTER  IS  16 
7230  NEXT  Di 

7240  RETURN  !!!!!!!!!!! LOOP  FREQ  IN  CALLING  ROUTINE 
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7 2 60 
7 2 7 0 
7 280 
7 2 90 
7 300 

73  10 
7 3 20 
7 3 30 
7 340 
7 350 
7 360 
7 3 7 0 
7 380 
7 390 
7400 

74  10 

7420 
7 4 30 
7440 
74  50 
7460 
74  70 
7480 
7490 
7 500 
7510 
7 520 
7 5 30 
7540 
7 550 
7 560 
7 570 
7 5 80 
7590 
7600 
7610 
7620 

76  30 
7640 
7 6 50 
7660 
7670 
7680 
7690 
7700 

77  10 
77  20 
7 7 30 
7 7 40 
7 7 50 
7 7 60 
7 7 70 
7780 
7 790 


Open:  ! CALCULATES  R AMD  I PARTS  AND  ANG  OF  OPEN  Z 

F n = 1 

PRINTER  IS  0 

PRINT  "FREQUENCY=" ; F ( 1 , 1 ) ; "MHZ" 

Co=.1635*lE-12 
FOR  1=1  TO  Fn 
F = F(Prt  ,1  ) * 1 E 6 

Cr(I)=(l-(50*2*PI*F*Co)~2)/(l+(50*2*PI*F*Co)~2) 

Gi(  I ) = -100*2*PI*F*Co/(  l + (50*2*PI*F*Co)'>2  ) 

DEG 

An g ( I ) = ATN ( - 1 00  * 2 * PI  * F * Co / ( l-(50*2*PI*F*Co)~2 ) ) 

NEXT  I 
RETURN 
; 

! SUB  Garao  CALCULATES  SKIN  DEPTH  AND  LOSS  OF  OFFSET  SHORT  VS  FREQUENCY 
! REFLECTION  COEFFICIENT;  ANGLE;  REAL  AND  IMAGINARY  PARTS  ARE  CALCULATED 
USING  THE  LOSS. 

! SKD(*)=SKIN  DEPTH  VS  FREQ 
! Ac(*)=LOSS  DB/CM  VS  FREQ 
! Gam( * ) = GAMMA  OF  OFFSET  VS  FREQ 
! Ang  ( * ) = G AMMA  ANGLE  OF  OFFSET  VS  FREQ 
! Gr(*)=REAL  PART  OF  GAMMA  VS  FREQ 
! Gi(*)=IMA GINARY  PART  OF  GAMMA  VS  FREQ 
Gamo:  ! G1,G2=RE&IM  Parts  of  Z-Std 

PRINTER  IS  16 

DIM  Skd( 1 05  ) , Ac( 105  ) ! , Ang( 1 05  ) ,G  1 ( 1 0 5 ) , G 2 ( 1 0 5 ) , Ga m ( 1 0 5 ) 

! Calculations  for  impedance  std  (offset  short)  6 port  r e f 1 e c t ome t e r 
! RE -SAVE" SUBG" ! June  30,  1982  0645 

! ATTENUATION  RESULTING  FROM  CONDUCTOR  LOSSES 
PRINTER  IS  16 
PRINT 

! 7mm  LINE  IS  CHARACTERIZED  FOR  GOLD;  14mm  LINE  FOR  COPPER 
! INPUT  "1  FOR  7mm  OR  2 FOR  14mm  LINE", Line 
L i ne  = 2 

ON  Line  GOTO  7600,7630 
Lineloss=2.21*10~(-6) 

PRINT  "7mm  LINE  (GOLD)" 

GOTO  7650 

Line loss= 1 .72*10~(-6 ) 

PRINT  "14mm  LINE  (COPPER)" 

1=0 

PRINT 

PRINT  " FREQ";"  SKIN  DEPTH";"  LOSS  DB/CM" 

PRINT 

F=Fc  = F(Prt  , 1 ) * 1 E 6 
Fn=  1 

FOR  Fr=l  TO  Fn 
1=1  + 1 

Skd(Fr)=5033*SQR(Lineloss)/SQR(F) 

Mu  = 1 

E = SQR ( 1 . 0005  ) 

0 r = 1 . 4287  5 /2 

1 r = . 6203696  /2 

Nnl=l /Or  ! 1 / B 

N n 2 = 1 +0  r / I r 11+B/A 
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7800  N3=L0G(0r/lr)  ! 1 n ( 13  / A ) 

7810  0 = 29  97  9 3000*  100  ! CM/ SEC 

7820  Ft=F 

7 3 30  Ac  ( Fr  ) = 1 3 . 6 4 3 8 * ( S k d ( F r ) * Mu  / ( C / F t ) ) *N  n 1 *N  n 2 * ( E / N 3 ) 

7340  PRINT  USING  7 8 5 0 ; F / 1 E 6 , Sk  rl  ( F r ) , Ac  ( Fr  ) 

7 8 5 0 IMAGE  2 X , 4 D , 5 X , M D . 9 D , 5 X , M D . 9 D 

7860  IF  IO10  THEN  GOTO  7890 

7870  PRINT 

7880  1=0 

7890  NEXT  Fr 

7900  PRINT 

7910  PRINT 

7920  DEG 

7930  ! INPUT  "LENGTH  OF  OFFSET  IN  CM",L 

7940  L=299 79300000/ 3000000000/4 

7950  FOR  F r = 1 TO  Fn 

7960  Mul t=C/Fc/360 

7970  Delta=C/Fc/2-2*L 

7980  IF  D e 1 1 a > 0 THEN  GOTO  8020 

7990  IF  D e 1 1 a = 0 THEN  GOTO  8040 

8000  Ang(Fr)=0-Delta/Mult 

8010  GOTO  8050 

8020  Ang(Fr)=0+Delta/Mult 

8030  GOTO  8050 

8040  Ang ( Fr ) =0 

8050  Fc  = F( Prt  , 1 ) 

8060  NEXT  Fr 
8070  PRINTER  IS  0 

8080  PRINT  " FREQ  GAMMA";"  ANGLE";"  GAMMA  R";"  GAMMA  i" 

8090  PRINT 
8100  F=F (Prt  , 1 ) 

81  10  FOR  1 = 1 TO  Fn 

8120  Los  s = Ac ( I ) *2  *L 

8130  Gara(I )=10~(-Loss/20) 

8140  G 1 ( I ) = Gatn(  I ) 

8150  G2(I ) = A n g ( I ) 

8160  Gr ( I ) = G1 (I )*C0S (G2  (I  ) ) 

8170  Gi(I)=Gl(I)*SIN(G2(I)) 

8180  Gmag=SQR(Gr(I  ) ~ 2+Gi ( I ) ~ 2 ) 

8190  PRINT  USING  82 00 ; F , Gam ( I ) , Ang ( I ) , Gr ( I ) , Gi ( I ) 

8200  IMAGE  2X , 4 D . DDD , 2X , MD . 5D , 2X , M 3D . 2 D , 2X , M D . 5D , 2X , M 3 D . 2 D 

8210  PRINT  "CALCULATED  MAGNITUDE  IS:";Gmag 

8220  ! F=F1+I*F3 

8230  NEXT  I 

8240  RAD 

8250  RETURN 

8260  ! ! ******************************************************************* 
8270  ! Calculation  Functions 
8280  ! 

S Ca  1 ( 


3500 

4890 

4910 

4960 

5030 

5090 

5170 

5260 

5310 

5640 

72  10 
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A ( 

4 1 30 

4890 

4960 

A 1 

4960 

5 0 9 0 

5 100 

A 2 

5090 

5 120 

5 130 

A8 

5260 

52  70 

53  10 

A9 

5260 

5 2 7 0 

53  10 

Ac  ( 

7 500 

7830 

7 840 

Ang  ( 

4780 

7 36  0 

8000 

B 

4890 

49  10 

4960 

53  10 

5640 

72  10 

B ( 

4 1 30 

4890 

4 9 6 0 

B 1 

4960 

5090 

5 100 

B 2 

5090 

5 120 

5130 

B 8 

5170 
72  10 

5180 

5180 

B 9 

5 170 
72  10 

5 180 

5180 

C 

1680 

1950 

3620 

c( 

1350 

3200 

3250 

3360 

3360 

3620 

3680 

3700 

37  10 

4 520 

4 530 

4 550 

4570 

4 580 

7 170 

Cl 

4960 

5090 

5 100 

C 2 

5090 

5 120 

5130 

C 8 

5170 

52  10 

52  10 

5640 

72  10 

C 9 

5170 

52  10 

52  10 

5640 

72  10 

Cal 

1440 

1450 

1480 

34  10 

3640 

3660 

4620 

4 7 70 

C a 1 $ 

6 570 

6590 

6590 

Ca  1 2 : 

1460 

50  30 

5090 

5 1 30 

5 170 

5640 

72  10 

5640 

72  10 

8120 

8020 

-8040 

8150 

8190 

5030 

5090 

5 170 

5260 

5030 

5090 

5 1 30 

5 170 

5 190 

5 190 

5260 

5310 

5640 

5 1 90 

5 190 

5260 

5310 

5640 

7 1 20 

7810 

7830 

7 960 

7 970 

32  50 
3670 

3250 

3680 

3250 

3360 

3360 

37  10 

37  50 

3750 

4500 

4510 

4560 

5130  5170 


5220 

5220 

5260 

5310 

5220 

5220 

5260 

5310 

2060 

3680 

3120 
37  10 

3310 

3740 

3 330 

6600 

6610 

6650 

6650 

6660 

6670 
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Ca  1 z : 

4100 

3480 

Cc 

1690 

1960 

2100 

2400 

2490 

2650 

2940 

3 6 20 

3670 

3710 

3740 

37  50 

4510 

4510 

4 5 20 

4550 

4560 

4560 

4590 

5630 

7070 

Cc  c 

1700 

1970 

3520 

Ck 

3340 

3360 

3360 

Cm 

4890 

4910 

4960 

72  10 

Cm  ( 

4130 

4890 

4960 

Co 

7 300 

7 3 30 

7 330 

Cp 

2480 

2660 

2 780 

D 

3510 

3550 

3560 

5170 

5260 

5640 

D $ 

1390 

2600 

2610 

Date 

4180 

4380 

7000 

Delta 

7970 

7980 

7 990 

Di 

3550 

3620 

3640 

3700 

3710 

37  10 

7170 

7 1 80 

7200 

Dvm 

4270 

E 

4890 

4960 

5090 

F 

1590 

3840 

3880 

4960 

5090 

5170 

7 330 

7 330 

7 340 

7820 

7840 

8100 

F $ 

1400 

3840 

F ( 

* 

43  10 

4310 

5680 

5690 

5700 

5730 

5740 

5740 

5910 

5920 

5920 

5920 

5930 

5970 

5980 

5980 

5990 

6000 

6050 

6050 

2 130 
2650 
3680 
3750 
4520 
4570 
7170 

2250 
2710 
3680 
4460 
4530 
4570 
7 1 80 

2260 
2 790 
3700 
4500 
4 5 30 
4580 
7200 

2310 

2940 

3710 

4500 

4550 

4580 

3580 

3630 

3820 

3840 

7 1 10 

3360 

3360 

3380 

5030 

5090 

5170 

5260 

5640 

5030 

5090 

7340 

7340 

7 360 

7 360 

2950 

3090 

3 7 70 
72  10 

4890 

4960 

5090 

27  10 

2890 

2900 

8000 

8020 

3670 

3680 

3680 

3680 

37  10 

3 7 50 

37  50 

7160 

72  30 

5170 

5260 

5640 

72  10 

7 7 50 

7 830 

3890 

4 320 

47  30 

4890 

49  10 

5260 

5640 

7010 

72  10 

7 320 

7 340 
8190 

7 360 

7 360 

7 690 

7 7 30 

4320 

4360 

47  30 

4 7 70 

5670 

57  10 

57  10 

57  20 

57  20 

5 7 30 

5760 

57  70 

5 780 

5790 

5910 

5920 

5920 

5920 

5920 

5920 

5970 

5970 

59  7 0 

5980 

5980 

5990 

5990 

5990 

6000 

6000 

6050 

6050 

6080 

6080 

6080 
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6080 

6100 

6 110 

6 120 

6130 

6 1 80 

6 1 80 

6180 

6180 

62  10 

6210 

62  10 

62  10 

6240 

6260 

6280 

6280 

6290 

6290 

6310 

6310 

63  10 

63  10 

6320 

6320 

6320 

6320 

6380 

6380 

6390 

6390 

6 3 90 

6390 

6 3 9 0 

6390 

6 390 

6390 

6400 

6440 

6440 

6440 

6440 

6470 

6470 

6470 

6470 

6510 

6510 

65  10 

6510 

6540 

6540 

6540 

6 540 

6620 

6680 

7010 

7 290 

7 320 

7690 

8050 

8100 

F 1 

1550 

1580 

1590 

1720 

1990 

2020 

3430 

3460 

3800 

3880 

4 300 

4310 

4 3 20 

4360 

7050 

FI  $ 

3840 

F 2 

1560 

1 580 

2000 

2020 

3440 

34  60 

3800 

7 060 

F 3 

1570 

1580 

2010 

2020 

3450 

3460 

3880 

7080 

F4 

3880 

3 8 90 

F 9 

7040 

7050 

7060 

Fc 

7690 

7960 

7970 

8050 

F i 1 e $ 

3 160 

3180 

F i n a 1 ( 

* 

6290 

6 300 

6680 

6710 

Fn 

1580 

1730 

1740 

2020 

3 2 30 

3350 

3460 

3700 

37  10 

3710 

37  50 

3800 

3820 

3830 

4470 

45  50 

4560 

4570 

4580 

4630 

4640 

4710 

7090 

7 2 70 

7 3 10 

7 700 

77  10 

7 9 50 

8110 

Fn b ( 

2380 

Fn  n 

4630 

Fr 

32  30 

3250 

3 2 50 

3250 

3250 

3260 

3350 

3360 

3360 

3360 

3360 

3 370 

3470 

3 6 20 

3670 

3 680 

3680 

3700 

3710 

3710 

3 7 40 

37  50 

3750 

3 830 

3880 

3900 

4240 

4 360 

4480 

47  10 

4 7 30 

4740 

4 7 50 

4 7 70 

4780 

4790 

4890 

4910 

50  30 

5640 

6920 

7010 

7 170 

72  10 

7710 

7 7 30 

7830 

7830 

7840 

7840 

7890 

7 9 50 

8000 

8020 

8040 

8060 

Ft 

7820 

7830 

Fz 

4370 

4470 

G 

4890 
72  10 

4910 

4960 

5090 

5 170 

5 2 60 

53  10 

5640 

G 1 

4740 

4780 

4 780 

5260 

Cl  ( 

8140 

8160 

81  70 
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G 2 

47  50 

4780 

4780 

5260 

G2  ( 

8150 

8 160 

8170 

Gara( 

8130 

8140 

8190 

Gamo  : 

7480 

4700 

Gi( 

47  50 

7 340 

8170 

8180 

8190 

G 1 ( 

1400 

5640 

5670 

5760 

5840 

72  10 

Gla  ( 

1400 

5640 

5680 

5770 

5840 

72  10 

Gli  ( 

1400 

5640 

5700 

5790 

5840 

7210 

Glr  ( 

1400 

5640 

5690 

5780 

5840 

72  10 

Gmag 

8180 

82  10 

Goto 

5470 

Gr  ( 

4740 

7 330 

8160 

8180 

8190 

H 

4960 

5090 

5170 

5260 

5310 

5640 

72  10 

I 

3220 

32  50 

3250 

3250 

3250 

3270 

4960 

5030 

5090 

5170 

5260 

5310 

5640 

5950 

5970 

5970 

59  70 

5970 

5980 

5980 

5980 

5980 

5990 

5990 

5990 

5990 

6000 

6000 

6000 

60  10 

6700 

6710 

67  10 

6720 

72  10 

7310 

7 330 

7 340 

7 360 

7 370 

7650 

7 7 20 

7 720 

7860 

7880 

81  10 

8120 

8130 

8140 

8140 

8150 

81  50 

8160 

8160 

8160 

8170 

8170 
82  30 

8170 

8180 

8180 

8190 

8190 

8190 

8190 

1 1 

1 540 

5500 

5510 

5510 

5530 

5540 

5550 

5570 

5590 

5600 

5610 

5620 

5630 

5640 

5660 

5800 

5870 

7070 

72  10 

Imped 

4650 

4670 

I n i t 

1350 

2 360 

5490 

5650 

5900 

6580 

Ir 

7 7 70 

7 790 

7800 

It 

5550 

J 

4890 

4960 

5030 

5090 

K 

4890 

4960 

5030 

5090 

5170 

5260 

5640 

72  10 

L 

4960 

5030 

7940 

7970 

8120 
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Line 

7 580 

7 590 

L 1 n e 1 o s s 

7600 

76  30 

7 7 30 

Loss 

8 120 

8130 

M 

17  90 

1940 

2 1 20 

2200 

2 300 

2390 

2450 

2640 

2 7 50 

2930 

3840 

3870 

7100 

Ml 

2 160 

3810 

59  10 

5930 

6380 

6400 

M2 

5920 

59  30 

6 390 

6400 

Meas  : 

37  90 

18  10 

2 180 

2 2 70 

2 350 

2430 

2 560 

2720 

2 8 50 

3000 

3 110 

7 1 50 

Mismatchl : 

5880 

Mon  e 

63  10 

6330 

Mt  wo 

6 320 

6 330 

Mu 

7 740 

7830 

Mult 

7 960 

8000 

8020 

N 

4890 

N 1 

2 540 

4 2 20 

4890 

4960 

5030 

5090 

5170 

N 2 

2830 

42  30 

4960 

5030 

5090 

5 170 

N 3 

4960 

5090 

7800 

7830 

Nd i ode 

1670 

N e wt  $ 

6810 

7000 

Nn  1 

7780 

7830 

N n 2 

7 7 90 

7 830 

N p 

2470 

2670 

2 7 70 

2960 

3100 

Nt  $ 

6800 

6810 

Ntime : 

67  80 

6980 

N 1131 

3130 

3 1 50 

3 1 50 

3 160 

0 

42  50 

4890 

4890 

4910 

4910 

4960 

4960 

5030 

5030 

5090 

5 170 

5170 

5260 

5260 

5310 

5310 

5640 

5640 

7210 

72  10 

Open  : 

7260 

4680 
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Or 

7 7 60 

7 7 80 

7 7 90 

7800 

P 

1770 

2 0 3 0 

2 110 

39  30 

4070 

4 8 90 

4960 

5030 

5 0 90 

5 170 

5 2 6 0 

5 6 40 

7 1 30 

72  10 

P$ 

3 940 

3960 

3980 

4 0 0 0 

4020 

4040 

4060 

4070 

4080 

7020 

7030 

P( 

1390 

4 500 

4 5 10 

4 5 20 

4 5 30 

4 550 

4 560 

4 5 70 

4 580 

4600 

4 6 00 

4 6 00 

4 600 

4890 

4960 

5 0 3 0 

5090 

5 170 

5260 

5 590 

5 6 00 

5610 

5620 

5640 

7 180 

7 200 

72  10 

P0$ 

13  50 

1780 

3840 

4 0 80 

P 3 

5090 

5170 

5260 

5 6 00 

5640 

72  10 

P4 

5090 

5 170 

5 2 60 

5 590 

5640 

7210 

P 5 

5090 

5 170 

5 2 60 

56  10 

5640 

72  10 

P 6 

5090 

5 170 

5260 

5620 

5640 

72  10 

Pa  ( 

1400 

Pd i od  e ( 

1390 

P o ut  $ 

1500 

1530 

1750 

1760 

1840 

1 8 50 

1 900 

1910 

2070 

2090 

2 3 70 

4 4 30 

4450 

5310 

5400 

5640 

6950 

6960 

72  10 

Po  ut  $ : 

0 

44  50 

Prt 

14  50 

4440 

4 4 50 

4490 

5310 

5670 

5680 

5690 

5700 

57  10 

57  10 

5720 

57  20 

5 7 3 0 

5 7 30 

5 7 40 

5740 

5760 

5 7 70 

5780 

5 790 

59  10 

5910 

59  20 

5920 

5920 

5920 

59  20 

5920 

5920 

5920 

5930 

59  40 

6 140 

6 380 

6380 

6 3 90 

6390 

6390 

6390 

6 3 90 

6390 

6 390 

6390 

6 4 00 

64  10 

6750 

7 320 

7690 

8050 

8100 

Q 

2140 

2 2 20 

2 3 30 

2 380 

2530 

2620 

2820 

2910 

3070 

3850 

4890 

4960 

50  30 

5090 

5 170 

5260 

5640 

6880 

72  10 

2 5 90 

2610 

2880 

2900 

5090 

5 170 

5260 

5310 

5640 

72  10 

R 1 

4960 

4990 

5030 

5050 

5090 

5 170 

5260 

5640 

R2 

4960 

4990 

5 0 30 

5050 

5090 

5 170 

5260 

5640 

Rcoe  f : 

5 3 80 

Rec  al 

1470 

1860 

6850 

6910 

72  10 
7 2 10 
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Ref  1 : 

6840 

Resume: 

6940 

1860 

S 

4 9 60 

5090 

5 170 

5 2 60 

5640 

7 2 10 

SO 

4960 

S 1 

4960 

S 2 

4960 

S3 

5090 

5 170 

5 2 60 

5 6 4 0 

7 2 10 

S 4 

5090 

5 170 

5260 

5640 

7 2 10 

S 5 

5 0 90 

5 170 

5260 

5640 

72  10 

S 6 

5090 

5 170 

5 2 60 

5640 

72  10 

Scanner 

4280 

Sel  : 

34  90 

3860 

Se  q 

2 170 

2 240 

2 3 20 

24  10 

25  10 

2800 

3020 

3080 

Set 

4 2 90 

4310 

4480 

4 500 

4510 

4 5 20 

4 5 30 

4550 

6300  6330 


Se  t pw r : 

3920 

2040 

7 140 

Skd  ( 

7 500 

7 7 30 

7830 

7840 

Ss 

2520 

2870 

2580 

2970 

2680 

2970 

2680 

2980 

2690 

2990 

•2  7 00 

2810 

2860 

S s $ 

2580 

2610 

27  10 

2 8 70 

2900 

T 

4960 

5030 

5090 

5 170 

5260 

5310 

5640 

72  10 

T $ 

4 170 

4 180 

4 180 

4 190 

T i me  $ 

4 190 

4 380 

U( 

4130 

V( 

4 1 30 

VI 

3620 

36  40 

3670 

3 7 00 

7 170 

7 180 

w( 

4 1 30 

4890 

4910 

5030 

50  90 

W1 

4960 

5640 

4990 
72  10 

50  30 

5050 

5090 

5170 

5260 

53  10 

3 7 40 

4 560 
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W2 

4960 

4990 

5030 

5050 

5090 

5170 

5260 

5310 

5640 

72  10 

W3 

4960 

4990 

5030 

5 0 50 

5090 

5 170 

5260 

5310 

5640 

72  10 

X 

5260 

5310 

5640 

72  10 

x( 

4130 

4890 

4960 

5030 

5090 

Y 

5 2 60 

5310 

5640 

72  10 

Y( 

4130 

4890 

4960 

5030 

5090 

Z$ 

1390 

z( 

1550 

1560 

1570 

1720 

1720 

19  90 

2000 

2010 

3200 

3430 

3440 

3450 

4300 

4300 

4310 

4370 

4370 

4370 

5400 

6100 

6110 

6 120 

6130 

6 300 

6330 

7040 

Z8 

5640 

72  10 

Zd i od e ( 

1390 

1830 

3200 

3640 

3680 

37  10 

6900 

Zerd lode  : 

1640 

1610 

6930 

Zm( 

4 1 30 

4960 
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8290  DEF  FNA(A,A(*),B,B(*),Cm,Cm(*),D,E,F,Fr,G,J,K,N,Nl,0,P,P(*),Q,W(*) 
,X(*) , Y ( * ) ) 

8300  ! DEF  FN A ( A , A ( * ) , B , B ( * ) , C , C ( * ) , D , E , F , G , J , K , N , N 1 , 0 , P , P ( * ) , Q , W ( * ) 

,X(*)  , Y ( * ) ) 

8320  OPTION  BASE  1 

8330  COM  F ( * ) , Z ( * ) ,T1 ,T2,T3,Qr(*) , Q i ( * ) ,Final(*  ) 

83 AO  COM  File, Flag 

8330  REDIM  A ( 3 , 3 ) , B ( 7 , 3 ) , Cm ( 3 , 7 ) , X ( 7 , 1 ) , Y ( 3 , 1 ) 

8360  N 1 =7 
8370  N 2 = 5 
8380  F =0 

8390  FOR  J=1  TO  N1 

8400  K = J + 2 

8410  X(J, 1 ) = P ( K , 2 ) 

8420  F =F  + X ( J , 1 ) 

84  30  B ( J , 1 ) = P ( K , 1 ) 

8440  B ( J , 2 ) = P (K  , 3 ) 

8450  B(J,3)=P(K,4) 

8460  NEXT  J 

8 4 7 0 N = 3 

8480  COSUB  8780 

8490  D = S Q R ( Cm ( 1 , 1 ) ~2+Cm( 2 , 1 ) ~2+Cm( 3 , 1 ) ~2  ) 

8500  P = Cm( 1 , 1 )/ Cm (3,1) 

8510  Q = Cm( 2 , 1 ) / Cm ( 3 , l ) 

8520  REDIM  A ( 5 , 5 ) , B ( N 1 , 5 ) , Cm ( 5 , N 1 ) , Y ( 5 , 1 ) 

8530  F = 0 

8540  FOR  J=1  TO  N1 

85  50  K.  = J + 2 

8560  G=P(K,2)~2 

8570  F=F+G 
8580  X(J, 1 ) = - G 

8590  B(J,1)=P(K,1)“2 

8600  B ( J , 2 ) = 2*P (K , 1 )*P (K  , 3 ) 

8610  B(J,3)=P(K,3)~2 

8620  B(J ,4)=2*P(K, 1 )*P(K,2) 

8630  B( J , 5 ) = 2*P (K , 3 )*P (K  , 2 ) 

8640  NEXT  J 
8 6 5 0 N = 5 
8660  COSUB  8780 
8670  A=Cm ( 1,1) 

8680  B=Cm(2 , 1 ) 

8690  Cm=Cm ( 3,1) 

8700  D=Cm ( 4 , 1 ) 

8710  E = Cm ( 5 , 1 ) 

87  20  E f ( Fr ) =E 

8730  G = SQR( 1 -4*(A*Cm-B*B)*(  1+P*P+Q*Q) / ( Cm+Cm* P * P + A + A *Q *Q - 2 * B* P *Q ) ~2 ) 
8740  PRINTER  IS  16 

8750  PRINT  USING  87 60 ; SQR ( ( 1 +Gf ( Fr ) ) / ( 1 -Gf ( Fr ) ) ) 

8760  IMAGE  "RMAX/RMIN  FOR  3D  E LL I PS E = " , DD . 4 D 
8770  RETURN  0 
8780  MAT  Cm=TRN ( B ) 

87  90  MAT  Y = Cm*  X 
8800  MAT  A = Cm*  B 
8810  MAT  A=INV(A) 
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8820  REDIM  Cm(N,l) 

8830  MAT  Cm=  A* Y 

8 84  0 RE  DIM  A ( N 1 , 1 ) , Y ( 1 , N 1 ) 

8850  MAT  A=B*Cm 

8860  MAT  A= A-X 

8870  MAT  Y = T RN ( A ) 

8880  MAT  W = Y * A 
8890  RETURN 
8900  ! 

8910  ! 

FNA  ( 


A 

8290 

8670 

87  30 

87  30 

8730 

A ( 

8290 

8350 

8520 

8800 

8810 

8810 

8830 

8840 

8850 

8860 

8860 

8870 

8880 

B 

8290 

8680 

8730 

8730 

87  30 

B ( 

8290 

8 3 50 

8430 

8440 

8450 

8520 

8590 

8600 

8610 

8620 

8630 

8780 

8800 

8850 

Cm 

8290 

8690 

87  30 

8730 

8730 

Cm  ( 

8290 

8 3 50 

8490 

8490 

8490 

8500 

8500 

8510 

8510 

8520 

8670 

8680 

8690 

8700 

8710 

8780 

8790 

8800 

8820 

8830 

8850 

D 

8290 

8490 

8700 

E 

82  90 

8710 

8720 

Ef  ( 

87  20 

F 

8290 

8 3 80 

8420 

8420 

8530 

8570 

8570 

Fr 

8290 

8720 

87  50 

8750 

G 

8290 

8 560 

8570 

8580 

8730 

Gf  ( 

87  50 

87  50 

J 

8290 

8390 

8400 

84  10 

8420 

84  30 

8440 

8450 

8460 

8 540 

8 550 

8580 

8590 

8600 

8610 

8620 

8630 

8640 

8290 

8400 

8410 

8430 

8440 

8450 

8550 

8 560 

8590 

8600 

8600 

8610 

8620 

8620 

8630 

8630 

N 

8290 

8470 

8650 

8820 

N 1 

8290 

8360 

8 3 90 

8520 

8 520 

8540 

8840 

8840 

N 2 

8370 
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0 

8290 

8380 

8 7 70 

p 

82  90 

8 500 

87  30 

87  30 

8730 

8730 

87  30 

P( 

82  90 

84  10 

84  30 

8440 

84  50 

8560 

8590 

8600 

8600 

86  10 

8620 

8620 

8 6 30 

8630 

Q 

82  90 

8510 

87  30 

87  30 

8730 

87  30 

8730 

w( 

8 2 90 

8880 

X( 

8290 

8 3 50 

84  10 

8420 

8580 

8790 

8860 

Y( 

82  90 

8 3 50 

8 520 

8790 

8830 

8840 

8870 

8880 
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8920 


8 9 3 0 

8 9 4 0 
89  50 

89  6 0 
8970 
8980 
8990 
9000 

90  10 
90  20 
9030 

9 04  0 
9050 
9060 
9070 
90  8 0 
9090 
9 100 
9110 
9120 
9 1 30 
9140 
9150 
9160 
9 170 
9180 
9 190 
9200 
92  10 
9220 
9230 
9240 
92  50 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9 3 50 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 
9440 


OR  F FN  Bm ( A , A ( * ) , A 1 , B , B ( * ) , B 1 , Cm , Cm ( * ) , C 1 , D , E , F , G , H , I , J , K , L , N 1 , N 2 , N 3 
, 0 , P , P ( * ) , Q , R 1 , R 2 , S , S 0 , S 1 , S 2 , T , W 1 ,W2,W3,X(*)  , Y ( * ) , Z m ( * ) ) 

OPTION  BASE  1 

COM  F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*) 

COM  File,  Flag 

! CALC  R 1 , W 1 , R2 ,W2 ,W3  — I N P U T ( A , B , C , D, E)************ ********** 

! A1=RCS~2-RS~2 

! Bl ,C1=RCSX,RCSY 
! Rl  , R 2 = Z F,  T A & R H 0 
! W 1 , W 2 , W 3 =AB  S ( W 1 ) , RE&  I M ( W2  ) 

F = A*  Cm- B * B 
G = D 
II  = E 

D = S QR ( ABS ( A - G * G ) /F) 

A 1 =S  QR ( AB  S ( Cm-H*H ) / F ) 

A = ( B*G - A* H ) / F 
Cm= ( B*H-Cm*G  ) / F 
B = ( G * H - B ) / F 
T=  1 E 50 

N 3 = INT ( ( N 1 +N  2 ) / 2 ) 

RE  D IM  A ( 4 , 4 ) , B ( N 3 , 4 ) , Cm ( 4 , N 3 ) , X ( N 3 , 1 ) , Y ( 4 , 1 ) 

FOR  1 = 1 TO  N 3 
J = 2 * I + 1 
B ( I , 3 ) = P ( J ,4) 

B ( I ,4)  = P(J  , 2) 

X(I  , 1 ) = P(J  , 1 ) 

NEXT  I 

FOR  K= 1 TO  2 
FOR  L = 1 TO  2 
G = ( Cm- A 1 ) / ( A-D  ) 

C 1 = ( B-D  * A 1 ) / ( A-D  ) 

H=SQR(C1 ) 

Bl=(Cm+Al+2*Cl-( A+D )*G)/4/H 
C 1 =S  QR ( ( Cm+Al ) /2-B 1 *B1 ) 

FOR  1 = 1 TO  N 3 
J = 2 * I + 1 

P=(P ( J , 1 )+H*H*P ( J , 2 )-G*P ( J , 3 ) ) /H 
B(I , 1 )=P 

IF  J <N  1+2 . 5 THEN  9320 

B(I , 2 )=SQR( ABS(4*P( J , 1 )*P( J , 2 )-P*P) ) 

GOTO  9330 

B(I,2)  = (A1*P(J,2)+P(J,  1 ) - P * B 1 ) / C 1 
NEXT  I 

MAT  Cm=TRN ( B ) 

MAT  Zm=Cm*X 
MAT  A = Cm*  B 
MAT  A=INV(A) 

MAT  Y = A*  Zm 

Q = SQR(ABS(1  + (Y(1  ,1 ) ~ 2 +Y (2,1)~2)/Y(4,1))) 

PRINT  USING  9 4 1 0 ; Q 
IMAGE  Z.5D 
IF  Q>T  THEN  9490 
T = Q 
R 1 =G 
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9450  W 1 =H 
9460  W 2 = Y ( 1 , 1 ) 

94  7 0 W 3 = Y ( 2 , 1 ) 

9480  R 2 =Y (3,1) 

9490  S=0 

9500  FOR  1=2  TO  2+N1+N2 

95  10  S 0 = ( P ( I , 1 )+H*H*P ( I , 2 )-G*P ( I , 3 ) ) / H 
95  20  S 1 = P ( I , 1 ) 

9530  S2=W2 “2+W3 ~ 2 

9540  S = S + ( ( S 0 * W 2 + P ( I , 4 ) * R 2 - P ( I , 2 ) * S 2 - 8 1 ) ~ 2 - ( 4 * 8 1 * P ( I , 2 ) - 8 0 ~ 2 ) * W 3 ~ 2 ) ~ 2 

9550  NEXT  I 

9560  D = - D 

9570  NEXT  L 

9580  A 1 =- A 1 

9590  NEXT  K 

9600  RETURN  0 

9 6 10  ! 

9620  ! 

FN  Bm  ( 


A 

89  20 

90  10 

9 040 

9060 

9060 

9 2 0 0 

92  10 

9 2 30 

A ( 

89  20 

9 110 

9 3 6 0 

9 3 70 

9 3 7 0 

93  80 

A 1 

892  0 

9050 

9 2 00 

92  10 

9 2 30 

92  40 

9 3 2 0 

9 5 80 

9 580 

B 

89  20 

90  10 

9010 

9060 

9 0 7 0 

9080 

9 0 8 0 

92  10 

B ( 

8920 

9 110 

9 140 

9 1 50 

9280 

9 3 00 

9 3 20 

9 3 40 

9 3 6 0 

B 1 

8920 

92  30 

9 2 40 

92  40 

9320 

C 1 

8920 

92  10 

9220 

92  30 

9240 

9 3 20 

C m 

8920 

90  10 

90  50 

9070 

9070 

9200 

9 2 30 

9240 

Cm  ( 

89  20 

9 110 

9 340 

9 3 50 

9 3 60 

D 

89  20 

9020 

9 040 

9 2 00 

92  10 

92  10 

9 2 30 

9 560 

9 560 

E 

8920 

9030 

F 

8920 

90  10 

9040 

9050 

9060 

9070 

9 080 

G 

89  20 

90  2 0 

9 0 4 0 

9040 

9 06  0 

9070 

9080 

9200 

9 2 30 

92  70 

9440 

95  10 

H 

89  20 

9030 

9050 

9 0 50 

9 0 60 

9070 

908  0 

92  20 

92  30 

92  70 

92  70 

92  70 

94  50 

9510 

95  10 

9510 

I 

8920 

9 120 

9 1 30 

9 140 

9 1 50 

9 1 60 

9 170 

9 2 50 

9260 

92  80 

9300 

9 3 20 

93  30 

9 500 

95  10 

9510 

9 5 10 

9 520 

9 540 

9 540 

9 5 40 

9550 

1 76 
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J 

8920 
92  70 

9 1 30 
92  90 

9 140 
9 3 00 

9 1 50 
9 3 00 

9 1 60 
9320 

9260 
9 3 20 

92  70 

92  70 

K 

89  2 0 

9 1 80 

9 590 

L 

89  2 0 

9 1 90 

9 5 7 0 

N 1 

8920 

9 100 

92  90 

9 500 

N 2 

8920 

9 100 

9 5 0 0 

N 3 

8-9  2 0 

9 100 

9 110 

9 110 

9 110 

9 120 

92  50 

0 

8920 

9600 

P 

89  20 

9 2 70 

92  80 

9 3 00 

9 300 

93  20 

P( 

89  2 0 
9 3 00 
9 540 

9 140 
9 3 20 
9 5 40 

9 1 50 
9 3 20 

9 1 60 
9 5 10 

9 2 70 
9510 

92  70 
95  10 

92  70 
9 520 

9300 
9 540 

Q 

8920 

9 3 9 0 

9 4 00 

94  20 

9 4 30 

R 1 

8920 

9440 

R 2 

8 9 2 0 

9480 

9 540 

S 

8920 

9 4 90 

9 540 

9 5 4 0 

SO 

8920 

9510 

9540 

9 540 

S 1 

8920 

9 5 20 

9 540 

9 540 

S 2 

8920 

9 5 30 

9 540 

T 

8920 

9090 

9 4 20 

94  30 

W1 

8920 

94  50 

W2 

8920 

9460 

9 5 30 

9540 

W 3 

89  2 0 

9470 

9 5 30 

9 540 

X( 

8920 

9 110 

9 1 60 

9 3 50 

Y( 

8920 

9 110 

9 3 80 

9 3 90 

9 3 90 

9 3 90 

9460 

94  70 

9480 

Zm  ( 

8920 

9 3 50 

9 380 
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96  30 


9640 
9650 
9660 
9670 
9680 
9700 
97  10 
97  20 
97  30 
9740 
97  50 
9760 
97  70 
9780 
9790 
9800 
9810 
9820 
9830 

9840 
9850 
9860 
9870 
9880 
9890 
9900 
99  10 
9920 
99  30 
9940 
9950 
9960 

99  70 
9980 

9990 

10000 

10030 

10040 

100  50 
10060 
10070 
10080 
10090 
10  100 
10  110 
10120 
10130 
10140 


DEF  FNC(A,A(*) ,A1  , A 2 , B , B ( * ) , B 1 , B2 , Cm , Cm( * ) ,C1  , C 2 , D , E , F , G , H , I , J , K. , N 1 
,N2,N3,P,P(*),P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W(*),W1,W2,W3, 
X(*)  ,¥(*)) 

OPTION  BASE  1 

COM  F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*) 

COM  File, Flat? 

! SOLVE  FOR  SLIDING  SHORT  & LOAD-INPUT  P ( ) , D 7 , D8 , D9 , E 6 , E 7 , E8 , E 9 * * * * 
! OUT ( A 1 , B 1 , C l , A 2 , B 2 , C 2 ) 

RE  DIM  A(3,3),B(Nl,3),Cm(3,Nl),X(Nl,l),Y(3,l) 

PRINT  "SS  RE  SIDUES  = " 

N 3 =N  1 

FOR  1=3  TO  Nl+2 
J = I - 2 

GOSUB  10030 
PRINT  USING  9 7 7 0 ; R 
IMAGE  XD.DDEX 
NEXT  I 
GOSUB  10090 
A1 =Cm(  1,1) 

B 1 =Cm ( 2 , 1 ) 

C 1 =Cm ( 3 , 1 ) 

PRINT  USING  9840  ; " SS  CIRCLE  RESIDUAL  = " 
,SQR(W(l,l)/Nl)/(Bl'*2+Cl“2-Al)/2 
IMAGE  1 9 A , Z . 6 D 

RE  DIM  A(3,3),B(N2,3),Cm(3,N2),X(N2,l),Y(3,l) 

N 3 =N  2 
PRINT 

PRINT  "SL  RESIDUES=" 

FOR  I =N 1+3  TO  N1+N2+2 

J = I -N 1-2 

GOSUB  10030 

PRINT  USING  97  7 0 ;R 

NEXT  I 

GOSUB  10090 

A'2  = Cm  ( 1,1) 

B 2 =Cm ( 2 , 1 ) 

C 2 =Cm ( 3,1) 

PRINT  USING  9840; " SL  CIRCLE  RES IDUAL=" 

,SQR(W( 1 , 1 )/N2)/(B2~2+C2~2-A2)/2 

PRINT 

RETURN  0 

0=FNG(A,B,C,D,E,F,G,H,I,K,P,P(*),P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4 
, S5  , S6 , T,W 1 , W2 , W3 , I 1 ) 

X ( J , 1 )=G*G+H*H 
B ( J , 1 )=-l 
B ( J , 2 ) = 2 *G 
B ( J , 3 ) = 2 *H 
RETURN 

MAT  Cm=TRN ( B ) 

MAT  Y = Cm*  X 
MAT  A = Cm*  B 
MAT  A=IN V ( A ) 

REDIM  Cm ( 3 , 1 ) 

MAT  Cm= A* Y 
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10150  REDIM  A(N3,  1 ) ,Y( 1 ,N3) 
10160  MAT  A = B * Cm 
10170  MAT  A= A-X 
10180  MAT  Y=TRN ( A ) 

10190  MAT  W = Y * A 
10200  RETURN 
10210  ! 

10220  ! 

FNC  ( 


A 

9630 

A ( 

9630 

10160 

A 1 

9630 

P 

96  30 

P( 

96  30 

P3 

9630 

P4 

9630 

P 5 

9630 

P 6 

9630 

Q 

96  30 

R 

9630 

R 1 

9630 

R2 

9630 

S 

9630 

S3 

9630 

S 4 

9630 

S 5 

9630 

S 6 

9630 

T 

9630 

w( 

9630 

W1 

9630 

10030 

9700  9850  10110  10120 

10170  10170  10180  10190 

00  10030 

10030 
10030 
10030 
10030 
10030 
10030 
10030 

9760  9920  10030 

10030 
10030 
10030 
10030 
10030 
10030 
10030 
10030 

9830  9980  10190 

10030 


10120  10140 


10150 
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W 2 

96  30 

10030 

W 3 

9630 

10030 

x( 

9 6 30 

9700 

9850 

10040 

10  100 

10  170 

Y( 

9630 

9700 

9850 

10  100 

10140 

10150  10180  10190 
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10230  DEF  FND(A,Al,B,Bl,B8,B9,Cm,Cl,C8,C9,D,E,F,G,H,I,K,Nl,N2,0,P 
,P(*),P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W1,W2,W3) 

10240  OPTION  BASE  1 

10250  COM  F(*)  ,Z(*)  ,T1 ,T2,T3,Qr(*) ,Qi(*) ,Final(*) 

10260  COM  File, Flag 

10270  ! CALC  B ,( C / A ) --I N PUT ( A 1 , B 1 , C 1 , A2 , B 2 , C 2 )****************** *** 

10280  ! 1/31/77  THIS  MODIFIC  FOR  USE  IF  GAMMA  SLIDING  LOAD  IS  VERY  SMALL** 

102  90  B 8 = 0 
10300  B 9 = 0 

10310  ! B8=RE(B) ,B9=IM(B) 

10320  ! C8=RE (C/A) ,C9=IM(C/A) 

10330  FOR  I=N 1+3  TO  N1+N2+2 

10340  0=FNG(A,B,Cm,D,E,F,G,H,I,K,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,S4,S5, 

S 6 , T , W 1 , W 2 , W 3 , I 1 ) 

10350  B8=B8+G/N2 
10360  B 9 = B 9+H /N  2 
10370  NEXT  I 
10380  A=B 1 -B8 
10390  B = B 9- C 1 
10400  Cm=Al-B 1*B8-C 1*B9 
10410  D=B 1 *B9-C 1 *B8 
10420  E=Cm~2+D~2 
10430  C8= ( A*Cm+B*D ) /E 
10440  C9=(B*Cm-A*D)/E 
10450  RETURN  0 
10460  ! 

10470  ! 

FND  ( 


A 

10230 

10340 

10380 

10430 

10440 

A 1 

10230 

10400 

B 

102  30 

10340 

10  3 9 0 

10430 

10440 

B 1 

10230 

10380 

10400 

10410 

B 8 

10230 

10290 

10350 

10350 

10380 

10400 

10410 

B 9 

1 0230 

10300 

10360 

10360 

10390 

10400 

10410 

Cl 

10230 

10390 

10400 

104  10 

C 8 

10230 

10430 

C9 

10230 

10440 

Cm 

10230 

10340 

10400 

10420 

10430 

10440 

D 

10230 

10340 

10410 

10420 

10430 

10440 
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E 

10230 

1 0340 

1 0420 

10430  10440 

F 

10230 

1 0340 

G 

102  30 

1 0340 

1 0350 

H 

10230 

10340 

10  3 5 0 

I 

102  30 

1 03  30 

1 0 3 4 0 

10370 

I 1 

10340 

K 

1 0230 

10340 

N 1 

1 02  30 

1 0330 

1 03  30 

N 2 

1 02  30 

10330 

1 03  50 

10360 

0 

1 0230 

10340 

1 04  50 

P 

1 02  30 

1 0340 

P( 

1 02  30 

1 0340 

P 3 

1 0230 

1 0340 

P 4 

1 02  30 

1 0340 

P 5 

1 02  30 

1 0340 

P 6 

1 02  30 

1 0340 

Q 

10230 

1 0340 

R 

1 0230 

10340 

R 1 

1 0230 

10340 

R 2 

10230 

1 0340 

S 

10230 

1 0340 

S3 

1 0230 

10340 

S 4 

1 0230 

1 0340 

S 5 

1 0230 

1 0340 

S 6 

1 0230 

10340 

T 

10230 

10340 

W1 

1 0230 

1 0340 

182 
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W 2 

1 0 2 30 

1 0 3 4 0 

W 3 

1 0 2 3 0 

1 0 3 4 0 

183 
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10480 

10490 
10500 
10510 
10520 
10530 
1 0540 

10550 

10560 

10570 

1 0580 
10  5 9 0 
10600 
106  10 
10620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 
107  10 
10720 
107  30 
10740 
107  50 
10760 
10770 
10780 
10790 
10800 
10810 
10820 


DEF  FNE(A,A8,A9,B,B8,B9,Cm,C8,C9,D,E,F,G,Gl ,G2,H,I,K,0, 
P,P(*),P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W1,W2,W3,X,Y) 

OPTION  BASE  1 

COM  F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*) 

COM  File, Flag 

! CALC  (1/A)  INPUT(B8,B9,C8,C9,G1 ,G2, );  OUT ( A 8 , A 9 ) ***** 

1 = 2 

! REVISED  SUBROUTINE  FOR  Z CALC.  --  INPUT  P ( * ) , B 8 , B 9 , C 8 , C 9 , D8 , D 9 ; 
OUTPUT  A , B 
! REVISED  1/28/77 
RAD 

0=FNG(A,B,Cm,D,E,F,G,Il,I,K,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,S4, 

S 5 , S6,T,W1,W2,W3,I1) 

Cm  = G-B  8 
D = H - B 9 

E = 1 -G * C 8 + H *C  9 

P=-H*C8-G*C9 

B = E ~ 2 +P  ~ 2 

A= ( Cm*  E + D *P  ) /B 

B=(D*E-Cm*P)/B 

IF  1=2  THEN  10750 

X=A* A8-B* A9 

Y = A * A 9 + B * A8 

R = S QR ( X *X+Y  * Y ) 

T = ATN (Y/X  )* 180/PI 
IF  X>0  THEN  10750 
IF  Y >0  THEN  10740 
T=T-1 80 
GOTO  10750 
T=T+ 1 80 

! A8=RE ( 1 /A) , A9=IM( 1 /A) 

Cm=A~2+B~2 

A -8=  ( A*G  1 +B*G  2 )/Cm 

A9= (A*G2-B*G1  ) /Cm 

PRINT  "PAUSE  12352  A8;A9";A8,A9 

RETURN  0 

i 


FNE  ( 


A 

10480 

1 0570 

10630 

A8 

10480 

10660 

1 0670 

A9 

10480 

10660 

10670 

B 

10480 

10570 

10620 

10760 

1 07  70 

1 0780 

B 8 

1 0480 

10580 

B 9 

1 0480 

10590 

10660 

10670 

10760 

10770 

10780 

1 07  70 

107  90 

10780 

1 0790 

1 0630 

10640 

10640 

10660 

10670 
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C8 

10480 

10600 

10610 

C9 

10480 

10600 

10610 

Cm 

10480 

10570 

10580 

10630 

10640 

10760  10770  10780 

D 

10480 

10570 

10590 

10630 

10640 

E 

10480 

10570 

10600 

10620 

10630 

10640 

F 

10480 

1 0570 

G 

10480 

10570 

10580 

10600 

10610 

G 1 

10480 

10770 

10780 

G 2 

10480 

1 0770 

1 0780 

H 

10480 

1 0570 

10590 

10600 

10610 

I 

10480 

1 0530 

1 0570 

1 0650 

I 1 

10570 

K 

10480 

1 0570 

0 

10480 

10570 

10800 

P 

10480 

10570 

10610 

10620 

10630 

10640 

P( 

10480 

1 0570 

P 3 

10480 

1 0570 

P4 

10480 

10570 

P 5 

10480 

1 0570 

P6 

10480 

10570 

Q 

10480 

10570 

R 

10480 

10570 

10680 

R 1 

10480 

10570 

R2 

10480 

10570 

S 

10480 

1 0570 

S3 

10480 

1 0570 

S 4 

10480 

10570 
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S 5 

10480 

10570 

S 6 

10480 

10570 

T 

10  4 8 0 

10570 

10690 

1 0720 

10720 

10740 

W1 

10480 

10  570 

W 2 

10480 

1 0570 

W 3 

10480 

1 0570 

X 

10480 

10660 

10  6 8 0 

10680 

10690 

10700 

Y 

10480 

1 0670 

10680 

10680 

10690 

107  10 

10740 
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10830  DEF  FNF(A,A8,A9,B,B8,B9,Cm,C8,C9,D,E,E4,E5,F,F3,G,G5,H,I,K,N3, 
0,P,P(*),P2,P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W1,W2,W3,Z1, 

Z 2 , Z 3 ) 

10840  OPTION  BASE  1 

10850  COM  F(*) ,Z(*) ,T1 ,T2,T3,Qr(*) , Q i ( * ) ,Final(*) 

10860  COM  File, Flag 
10880  Cm=A8~2+A9~2 
10890  D=Cm-C8*C8-C9*C9 
10900  Zl=(B8*Cm-C8)/D 
10910  Z 2 = ( B 9 * Cm+C 9 ) / D 

109  20  Z 3 = ( ( 1 - B 8 *C 8 + B 9 * C 9 ) ~ 2+ ( B 8 * C 9 + B 9 *C 8 ) ~ 2 )*Cm/D/D 
10930  1=1 

10940  0=FNG ( A, B,Cm,D,E,F,G,H,I,K,0,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3, 

S 4 , S 5 , S 6 , T , 

W1 , W2 , W 3 ) 

10950  ! NET  POWER  IN  STD=G5 

10960  G5=P2/N3 

10970  F3=l - ( ( G-Z 1 K2  + (H-Z2)~2)/Z3 
10980  E4=G5/F/F3 
10990  E 5 = G 5 / P ( 1 , 2 ) / F 3 
11000  RETURN  0 

11010  ! SUBROUT INE  FOR  Z CALC. -INPUT  P (*), B8 , B9 , C8 , C 9 , D8 , D9 ; OUTPUT  A , B 

11020  ! REVISED  1/28/77 

11030  0=FNG(A,B,Cm,D,E,F,G,H,I,K,0,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,S4, 
S 5 , S 6 , T , W 1 ,W2,W3) 

1 1040  C m = G - B 8 
11050  D=H-B9 
1 1060  E = 1 -G * C 8+H * C 9 
11070  P=-H*C8-G*C9 
1 1080  B =E  ^ 2 +P  * 2 
1 1090  A=(Cm*E  + D*P  )/B 
11100  B = (D*E-Cm*P  ) / B 
11110  IF  1=2  THEN  11210 
11120  X=A*A8-B*A9 
11130  Y = A*  A9  + B * A8 
11140  R = S OR ( X*X+Y  * Y ) 

11150  T=ATN(Y/X)*180/PI 
11160  IF  X>0  THEN  11210 
11170  IF  Y >0  THEN  11200 
11180  T = T - 1 8 0 
11190  GOTO  11210 
1 1 200  T =T+ 1 80 
11210  RETURN 
1 1 220  ! 

11230  ! 

FNF  ( 


A 

10830 

10940 

11030 

11090  11120  11130 

A8 

10830 

10880 

11120 

11130 

A9 

1 0830 

10880 

11120 

11130 
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B 

10  8 3 0 
11130 

10940 

11030 

1 1080 

1 1090 

11100 

11100 

11120 

B 8 

1 0830 

10  9 0 0 

1 0920 

1 0920 

1 1040 

B 9 

1 0 8 3 0 

10910 

1 0920 

10920 

11050 

C 8 

1 0830 

10890 

10890 

10900 

10920 

10920 

11060 

11070 

C 9 

1 0830 

10890 

10890 

10910 

10920 

10920 

11060 

1 1070 

Cm 

1 0830 
1 1040 

10880 
1 1090 

10890 

11100 

10900 

10910 

10920 

10940 

1 1030 

D 

10  8 3 0 
1 1050 

10890 
1 1090 

10900 

11100 

10910 

1 0920 

10920 

10940 

1 1030 

E 

10830 

10940 

1 1030 

1 1060 

1 1080 

1 1090 

11100 

E 4 

10830 

10980 

E 5 

1 0830 

1 0990 

F 

10830 

10940 

10980 

1 1030 

F 3 

1 0830 

10970 

10980 

10990 

G 

10830 

10940 

1 0970 

11030 

1 1040 

1 1060 

11070 

G 5 

10830 

10960 

10  9 8 0 

10990 

H 

10830 

10940 

10970 

11030 

1 1050 

11060 

11070 

I 

10830 

1 0930 

10940 

1 1030 

11110 

K 

1 0830 

10940 

1 1030 

N 3 

10830 

10960 

0 

10830 

10  9 4 0 

10940 

1 1000 

1 1030 

11030 

P 

1 0830 

10940 

11030 

1 1070 

1 1080 

1 1090 

11100 

P( 

10830 

10940 

10990 

1 1030 

P 2 

1 0830 

10960 

P 3 

10830 

10940 

11030 

P 4 

10830 

10940 

11030 

P 5 

10  8 3 0 

10940 

11030 

P 6 

10830 

10940 

1 1030 

188 
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Q 

1 0 8 3 9 

1 0 9 4 0 

110  3 0 

R 

10830 

1 0940 

110  3 0 

1114  0 

R 1 

1 0 8 3 0 

1 0 9 4 0 

11030 

R 2 

1 0830 

1 0 9 4 0 

11030 

S 

1 0 8 3 0 

10  9 4 0 

1 1030 

S3 

1 0830 

10  9 4 0 

11030 

S 4 

1 0 8 3 0 

10940 

110  3 0 

S 5 

1 0830 

10940 

110  3 0 

S 6 

10830 

10  94  0 

110  3 0 

T 

1 0 8 3 0 

1 0940 

11030 

11150 

11180  11180  11200 

112  0 0 

W1 

1 0 8 3 0 

1 0940 

11030 

W 2 

1 0 8 3 0 

1 0940 

1 1030 

W 3 

10830 

1 0940 

11030 

X 

11120 

11140 

11140 

11150 

11160 

Y 

1113  0 

11140 

11140 

11150 

11170 

Z 1 

10  8 3 0 

10900 

10970 

7 2 

10830 

10910 

1 0970 

Z 3 

1 0830 

10920 

10970 
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1 1240 
11250 
1 1260 
11270 
1 1280 
11290 
1 1300 

113  10 
11320 
11330 
1 1340 
1 1350 
1 1360 
1 1370 
1 1 380 
1 1 390 
1 1400 
11410 
1 1420 
11430 

114  4 0 
11450 
1 1460 
1 1470 
1 1480 
1 1490 
1 1500 
11510 

115  2 0 
11530 
1 1 540 
11550 
1 1560 
11570 
1 1580 
1 1 590 

116  0 0 
116  10 
1 1620 
11630 
11640 
11650 
11660 
11670 
1 1680 
1 1690 
11700 
117  10 
11720 
117  30 
11740 
11750 
11760 
11770 


DEF  FNH( A , A8 , A 9 , B , B 8 , B 9 , C 8 , C 9 , G , H , I , 0 , R , T , W 1 , W 2 , W 3 , X , Y , P r t , Po u t $ ) 
! CALC  GRIG  PARAMETERS************* 

OPTION  BASE  1 

COM  F ( * ) , Z ( * ) ,T1 ,T2,T3,Qr(*)  , Q i ( * ) , Final ( * ) 

COM  File, Flag 
PRINTER  IS  16 
1 = 0 

PRINTER  IS  0 
PRINT 

PRINT  "FREQUENCY  =";F(1,1) 

X=A9*B9-A8*B8 
Y=-A8*B9-A9*B8 
G j c = 3 

GOSUB  11960 

PRINT  USING  11390;"  Q5=",R,T 

IMAGE  1 1 A , X Z . 5 D X , XM  3 D . D D 

! PRINT  " 10285  -B/A  Q 3 R E AL  AND  IMAG" 

! PRINT  "REAL" ; Qr ( 3 ) ; "IMAG" ; Qi ( 3 ) 

A = A 8 * A 8+ A 9 * A 9 
X = - ( A8*C8+A9*C9  ) / A 
Y=(A9*C8-A8*C9  ) / A 
! PRINT  X , Y 
G j c = 4 

GOSUB  11960 

PRINT  USING  11390;"  G 2I=";R,T 
IF  V AL (Pout$ )<>2  THEN  GOTO  11560 
F ( 1 , 9 ) = R 
F ( 1 , 7 ) = T 
DEG 

F(  1 , 3 )=F(  1 , 9 )*COS( F(  1,7)) 

F(1,5)=F(1,9)*SIN(F(1,7)) 

RAD 

F ( 2 , 9 ) = R 
F ( 2 , 7 ) = T 
DEG 

F(2,3)=F(2,9)*COS(F(2,7)) 

F(2,5)=F(2,9)*SIN(F(2,7)) 

RAD 
G j c = 5 
G = W 1 
11  = 0 

GOSUB  11860 
Qr( 5 ) = X 
Qi ( 5 ) = Y 

! PRINT  "10553  -F/E  Q5  REAL  AND  IMAG" 

! PRINT  "REAL" ; Qr ( 5 ) ; "IMAG" ; Qi ( 5 ) 

PRINT  USING  11390;"  Q6=";R,T 
G = W 2 
H = W 3 
G j c = 6 

GOSUB  11860 
Qr ( 6 ) = X 
Qi ( 6 ) = Y 

! PRINT  "10403  -H/G  Q6  REAL  AND  IMAG" 
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11780  ! PRINT  "REAL" ; Qr ( 6 ) ; "IMAG" ; Qi (6 ) 

11790  PRINT  USING  11390;"  Q3=";R,T 

11800  PRINT 

11810  PRINTER  IS  16 

11820  RETURN  0 

1 1 830  ! SUBROUTINE  FOR  Z CALC. -INPUT  P ( * ) , B 8 , B 9 , C 8 , C 9 , D8 , D9 ; OUT P UT  A , B 

11840  [REVISED  1/28/79 
1 1850  0 = FNG(0  ) 

1 1 860  Cm  = G -B  8 
1 1 870  D =H -B  9 
11880  E=1-G*C8+H*C9 
11890  P=-H*C8-G*C9 
11900  B=E~2+P~2 
11910  A=(Cm*E+D*P)/B 
11920  B= ( D*E-Cm*P ) / B 
11930  IF  1=2  THEN  12050 
11940  X=A*A8-B*A9 
11950  Y=A*A9+B* A8 
1 1960  R = S QR ( X *X+Y  * Y ) 

11970  T=ATN(Y/X)*180/PI 
11980  Qr(Gjc)=X 
1 1 990  Qi (G  jc  )=Y 
12000  IF  X>0  THEN  12050 
12010  IF  Y >0  THEN  12040 
12020  T = T - 1 8 0 
12030  GOTO  12050 
12040  T=T+1 80 
12050  RETURN 
12060  ! 

12070  ! 

FNH  ( 


A 

1 1240 

11420 

1 1430 

1 1440 

11910 

1 1940 

11950 

A8 

11240 
1 1950 

1 1340 

11350 

11420 

11420 

114  3 0 

11440 

11940 

A9 

1 1240 
11950 

1 1340 

11350 

11420 

11420 

11430 

11440 

1 1940 

B 

1 1240 

1 1900 

11910 

1 1920 

1 1920 

1 1940 

1 1950 

B8 

1 1240 

1 1340 

11350 

1 1 860 

B9 

1 1240 

1 1340 

11350 

1 1870 

C8 

1 1 240 

11430 

1 1440 

1 1880 

1 1890 

C9 

1 1240 

11430 

1 1440 

1 1880 

1 1890 

Cm 

11860 

119  10 

1 1920 

D 

1 1870 

11910 

1 1920 
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E 

1 1 880 

1 1 900 

11910 

1 1920 

F( 

* 

115  4 0 
1 1600 

11330 
1 1540 
11600 

1 1500 
115  6 0 

11510 

11570 

11530 
1 1590 

11530 
1 1590 

1 1530 
1 1590 

1 1540 
11600 

G 

1 1240 

1 16  30 

117  10 

11860 

1 1880 

l 1890 

G j c 

113  6 0 

1 1460 

11620 

11730 

1 1980 

11990 

H 

1 1240 

116  4 0 

11720 

1 1870 

11880 

1 1890 

I 

11240 

1 1 300 

11930 

0 

1 1240 

1 1820 

11850 

11850 

P 

11890 

1 1 900 

11910 

11920 

Po  ut  $ 

1 1240 

11490 

Pr  t 

1 1240 

Qi  ( 

* 

11670 

11760 

1 1 990 

Q r ( 

* 

1 1660 

117  50 

1 1980 

R 

11240 

113  8 0 

1 1480 

115  0 0 

1 1 560 

11700 

11790 

1 1960 

T 

1 1240 
1 2020 

1 1380 
1 2020 

11480 
1 2040 

11510 
1 2040 

115  7 0 

1 1700 

11790 

11970 

W1 

1 1240 

11630 

W 2 

1 1240 

117  10 

W 3 

1 1240 

11720 

X 

112  4 0 
11970 

113  4 0 
1 1980 

11430 
1 2 000 

1 1660 

11750 

1 1940 

11960 

11960 

Y 

1 1240 
11970 

11350 
1 1990 

1 1440 
12010 

11670 

11760 

11950 

1 1960 

11960 
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12080  DEF  FNI(A,B,Cm,F,G,0,W(*) ,Fr) 

12090  ! CALC&PRINT  RMAX/RMIN  FOR  ELLIPSE  INPUT  ( A , B , C )******** * 

12100  OPTION  BASE  1 

12110  COM  F(* ) ,Z(* ) ,T1 ,T2 , T3 ,Qr(* ) ,Qi (*) .Final (*  ) 

12120  COM  File, Flag 

12130  PRINT  USING  1 2 1 4 0 ; S QR ( W ( 1 , 1 ) / F ) 

12140  IMAGE  "COV  ELLIPSE  = " , Z . 5D 
12130  RETURN  0 
12160  ! 

12170  ! 

FNI  ( 


A 

12080 

B 

12080 

Cm 

12080 

F 

12080 

12130 

Fr 

12080 

G 

12080 

0 

12080 

12  150 

w( 

12080 

12  130 
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12180  DEF  FNL(A,A(*),B,B(*),Cm,Cm(*),Fr,I,J,K,L,Nl,N2,0,P,P(*),Q, 
R 1 , R 2 , T , W ( * ) , W 1 , W 2 , W 3 , X ( * ) , Y ( * ) ) 

12190  OPTION  BASE  1 

1 2 200  COM  F (*)  ,Z (*),  T1  , T2 , T3 , Qr( *)  ,Qi (*)  .Final (*  ) 

12210  COM  File, Flag 

12220  ! SOLVE  REDUNDANCY  EQUATION************* 

1 2230  W 3 =W  3 * W 3 

12240  PRINT  "RESIDUAL  FROM  REDUNDANCY  EQN= " 

12  2 3 0 RE  DIM  A ( 5 , 5 ) , B ( 1 +N 1+N 2 , 5 ) , X ( 1+N 1 +N 2 , 1 ) , Y ( 5 , 1 ) 

1 2 260  T= l E 50 
1 2270  FOR  K= 1 TO  10  , 

12280  FOR  1=1  TO  1 +N  1 +N  2 
12290  J = I + 1 

1230  0 A=(Rl*P(J, 3 ) -P ( J , 1 ))/Wl -W 1 *P ( J , 2 ) 

12310  B = P ( J , 1 ) + ( W 2 * W 2 +W  3 ) * P ( J , 2 ) + A * W 2 - R 2 * P ( J ,4  ) 

1 2 320  Cm  = A*A-4*P ( J , 1 )*P( J , 2 ) 

12330  P=2*(B*W2+A*W3) 

12  340  X(I  , 1 ) = B * B + W 3 * C m 

12350  B(I , 1 )=P*P(J, 3)/Wl 

1236  0 B(I , 2 ) = P*(-A/W1-2*P ( J , 2 ) ) 

1 2 370  B(I , 3 ) = -2*B*P( J ,4  ) 

12380  B ( I ,4)=2*B*(2*W2*P(J,2)+A) 

12390  B( I , 5 )=2*B*P ( J , 2 )+Cm 
12400  NEXT  I 

12410  REDIM  A ( 1 , N 1+N  2+1 ) 

1 2420  MAT  A = T RN ( X ) 

1 24  30  MAT  W = A * X 
12440  Q=SQR(W( 1,1)) 

1 2450  PRINT  USING  1 2 4 6 0 ; Q 
12460  IMAGE  Z.5D 
12470  IF  Q>T  THEN  12670 
1 2480  IF  Q / T > . 9 9 THEN  1 2650 
12490  T=Q 

12500  REDIM  A( 5 , 5 ) ,Cm( 5 , 1+N 1+N2 ) 

12510  L=0 

12520  MAT  Cm=TRN(B) 

1 2530  MAT  Y = Cm*  X 
1 2 540  MAT  A = Cm*  B 
12550  MAT  A=INV(A) 

1 2560  REDIM  Cm( 5 , 1 ) 

1 2 570  MAT  Cm=  A* Y 
1 2580  R 1 =R 1 -Cm ( 1,1) 

1 2 590  W 1 = W 1 -Cm ( 2 , 1 ) 

1 2600  R2=R2-Cm( 3 , 1 ) 

126  10  W2=W2-Cm(4  , 1 ) 

1 2620  W 3 =W 3 -Cm ( 5 , 1 ) 

12630  NEXT  K 

12640  ! FOR  REVERSED  P3&P5  CHANGE  SIN  OF  E7 

1 2650  W3=SQR(W3  ) 

12660  RETURN  0 
12670  L=L+ 1 

1 2680  IF  L > 3 . 5 THEN  1 2650 
1 2690  R 1 =R 1 +C ( 1 , 1 )/3 
12700  W 1 =W 1 +Cm ( 2 , 1 ) / 3 
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12710  R2=R2+Cm( 3 , 1 ) /3 
12720  W2=W2+Cn(4 , l ) / 3 
1 2 7 30  W 3 = W 3 + Cm ( 5 , 1 )/3 
12740  GOTO  12280 
12750  ! 

12760  ! 

FN  L ( 


A 

12  180 

1 2 3 0 0 

12  3 10 

1 2 320 

1 2 3 20 

1 2 3 30 

1 2 360 

1 2 380 

A ( 

12  180 
1 2 5 5 0 

1 22  50 
1 2 5 7 0 

124  10 

1 2420 

1 2 4 3 0 

1 2 500 

1 2 5 4 0 

1 2 5 5 0 

B 

12  180 

12  3 10 

1 2 330 

1 2 3 4 0 

1 2 3 4 0 

1 2 370 

1 2380 

1 2 390 

B ( 

12  180 
1 2 5 4 0 

1 2250 

1 2 3 5 0 

1 2 360 

1 2 37  0 

1 2 380 

1 2390 

1 2 520 

c( 

1 2 690 

Cm 

12  180 

1 2 320 

1 2 340 

1 2 3 9 0 

Cm  ( 

12  180 
1 2 590 

1 2500 
1 2600 

1 2520 
12610 

1 2 5 3 0 
1 2 6 2 0 

1 2540 
1 2700 

1 2 560 
12710 

1 2570 
1 2 720 

1 2580 
1 2 7 30 

Fr 

12  180 

I 

12  180 
1 2 390 

1 2280 
1 2400 

1 2290 

1 2 340 

1 2350 

1 2 3 6 0 

1 2 3 70 

1 2 380 

J 

12  180 
1 2320 

1 2290 
1 2 3 2 0 

1 2300 
1 2 350 

1 2300 
1 2360 

1 2300 
1 2370 

12310 
1 2380 

12310 
1 2 390 

12  310 

K 

12  180 

1 2270 

1 2630 

L 

12  180 

125  10 

1 2670 

1 2670 

1 2680 

N 1 

12  180 

1 2250 

1 2250 

1 2280 

12410 

1 2500 

N 2 

12  180 

1 2250 

1 2250 

1 2280 

124  10 

1 2500 

0 

12  180 

1 2660 

P 

12  180 

1 2 3 3 0 

1 2 3 5 0 

1 2360 

P( 

12  180 
1 2320 

1 2300 
1 2350 

1 2 300 
1 2360 

1 2 300 
1 2 3 7 0 

12310 
1 2 380 

12310 
1 2390 

12  3 10 

1 2 320 

Q 

12  180 

1 2440 

1 2450 

1 2470 

1 2480 

1 2490 

R 1 

12  180 

1 2 300 

1 2580 

1 2580 

1 2690 

1 2690 

R 2 

12  180 

12310 

1 2600 

1 2600 

127  10 

127  10 
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T 

12  180 

1 2 260 

1 2 4 7 0 

w( 

12  180 

1 2 4 3 0 

1 2 4 4 0 

W1 

12  180 

1 2 3 0 0 

1 2 3 0 0 

1 2700 

W 2 

12  180 

123  10 

12310 

1 2 720 

1 2 7 20 

W3 

12180 

1 2230 

1 22  30 

1 2620 

1 2650 

1 2650 

X( 

12  180 

1 22  50 

1 2 3 4 0 

12  180 

1 22  50 

1 2 530 

12480  12490 


1 2 3 5 0 

12  3 60 

1 2 5 9 0 

1 2 5 9 0 

1 2 700 

12310 

1 2 3 3 0 

1 2 3 8 0 

12  6 10 

12  6 10 

1 2 2 3 0 
1 2 7 30 

12  3 10 
1 2 7 30 

1 2 3 3 0 

1 2 3 4 0 

1 2 6 2 0 

1 2420 

1 2 4 30 

1 2 5 3 0 

1 2 570 
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1 27  70 

1 2780 
12790 
12800 
12810 
1 2820 
1 2830 
1 2840 
1 2850 
12860 
12870 
1 2880 
12890 
12900 
12910 
12920 
1 2930 
12940 
12950 
12960 
1 2970 
12980 
1 2990 
1 3000 
13010 
1 3020 
1 3030 
1 3040 
13050 
1 3060 
13070 
13080 
13090 
13100 
13  110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
1 3220 
1 3230 
13240 
13250 
1 3260 
13270 
13280 
13290 


DEF  FNG ( A, B,Cm,D,E,F,G,H,I,K,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3, 
S4,S5,S6,T,W1 ,W2,W3, II ) 

OPTION  BASE  1 

COM  F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*) 

COM  File, Flag 

JAPPLY  LEAST  SQUARES  TO  DATA,  IN ( KLMNO  ) , OUT  B 4 * 2 , RE& IM ( B 3 / B4 ) 

! F=(B4~2) , G,H=RE&IM(B3/B4) 

IF  11=1  THEN  GOTO  12850 
GOTO  12860 
1 = 1 1 

P 3 =P ( I , 1 ) ! P5  on  6po  rt 

P4=P ( I ,2 ) 

P5=P(I,3)  ! P6  on  6port 
P6=P(I,4)  ! P3  m 6 port 
IF  I > 1 5 THEN  12930 
PRINTER  IS  16 
GOTO  12940 
PRINTER  IS  16 

PRINT  P(I,4),P(I,1),P(I,3),P(I,2) 

PRINTER  IS  16 

S=(P3+P4+P5+P6)/100 

S 3 = S + P 3 

S4=S+P4 

S 5 = S+P  5 

S 6 = S+P  6 

G=(W1+(P3-R1*P5)/P4/W1 )/2 

H=((W2*W2+W3*W3+(P3-R2*P6)/P4 ) /2-G*W2 ) /W3 
P3  =P  3 / S 3 
P4  =P  4 / S 4 
P5=P5*R1 /S5 
P 6 =P  6 *R2 / S 6 

P=P3*P3+P4*P4+P5*P 5+P6*P6 
T=  1 E 5 0 

FOR  K= 1 TO  6 

Cm=(G*G+H*H)/S3 

D=( (G-Wl ) ~2+H*H ) / S 5 

E = ( ( G-W  2)~2+(H-W3)~2)/S6 

F=P/(Cm*P3+P4/S4+D*P5+E*P6) 

Cra  = Cm-P  3 / F 

D=D-P5/F 

E=E-P6/F 

R=SQR(( ( 1 -P ( I , 2)/F)/S4)~2+Cm*Cm+D*D+E*E)/S/25 
IF  R/T>.99  THEN  13310 
T = R 

Q = Cm/ S3+D/S  5+E / S 6 
A=G*Q-W1 *D/S5-W2*E/S6 
B = H *Q -W  3 *E / S 6 

D=G*P3 /S3+(G-W1 )*P5/S5+(G-W2)*P6/S6 
E=H*P3/S3+H*P5/S5+(H-W3 )*P6/S6 

Cm  = Q + 2 * ( (G/S3)^2  + ((G-W1)/S5)^2+((G-W2)/S6)"2-D*D/P) 
D=2*(G*H/S3/S3+(G-W1)*H/S5/S5+(G-W2)*(H-W3)/S6/S6-D*E/P) 
E=Q+2*(H*(H/S3/S3+H/S5/S5 )+( (H-W3)/S6)"2-E*E/P) 

G=G-(A*E-B*D)/ (Cm*E-D*D) 

H=H-(B*Cm-A*D)/ (Cm*E-D*D) 
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13300  NEXT  K 
13310  RETURN  0 
13320  ! 

13330  ! 

FNG  ( 


A 

1 2 7 70 

132  10 

1 3280 

1 3290 

B 

1 2 7 70 

1 3220 

1 3280 

1 3290 

Cm 

1 2 7 70 
1 32  50 

13  100 
1 3280 

13  130 
1 3290 

13140 
1 3290 

1 3140 

13  170 

13170 

1 3200 

D 

1 2 7 70 
132  10 
1 3280 

13110 
1 3230 
1 3290 

13130 
1 3 250 
1 3290 

13150 
1 32  50 
1 3290 

13150 
1 3 2 60 

13170 
1 3260 

13170 
1 3280 

1 3200 
1 3280 

E 

1 2 7 70 
132  10 
1 3280 

13120 
1 3220 
1 3290 

13130 
1 3240 

13160 
1 3260 

1316  0 
1 32  70 

13170 
1 32  70 

13170 
1 3270 

1 3200 
1 3280 

F 

1 2 7 70 

13  130 

13140 

13  150 

13160 

13  170 

G 

1 2 7 70 
1 3230 
1 3260 

13  010 
1 3230 
1 3280 

1 3020 
1 32  30 
1 3280 

13100 
1 3250 

13100 
1 3 2 5 0 

13110 
1 32  50 

13120 
1 3 2 6 0 

132  10 
1 3260 

H 

1 2 7 7 0 
1 3240 
1 3 2 7 0 

1 3020 
1 3240 
1 32  70 

13100 
1 3240 
1 3290 

13100 
1 32  60 
1 3290 

13  110 
1 3 2 6 0 

13110 
1 3260 

13  12  0 
1 3270 

1 3220 
1 3270 

I 

1 2 7 70 
1 2940 

1 2850 
1 2940 

1 2860 
1 2940 

1 2870 
13  170 

1 2880 

1 2890 

1 2900 

1 2940 

I 1 

1 2 7 7 0 

1 2830 

1 2 8 5 0 

K 

1 2 7 7 0 

1 3090 

1 3300 

P 

1 2 7 70 

1 3 0 7 0 

13  130 

1 3 2 5 0 

1 3260 

1 32  70 

P( 

1 2 7 70 
1 2940 

1 2 8 6 0 
13  170 

1 2 8 7 0 

1 2880 

1 2890 

1 2940 

1 2940 

1 2940 

P 3 

1 2 770 
1 3070 

1 2860 
1 3070 

1 2960 
13  130 

1 2970 
13  140 

13010 
1 3 2 3 0 

1 3020 
1 3240 

1 3030 

1 3030 

P 4 

1 2 7 7 0 
1 3070 

1 2870 
1 3 0 7 0 

1 2960 
13  130 

1 2980 

13  010 

1 3 0 2 0 

1 3040 

1 3040 

P 5 

1 2 7 70 
1 3070 

1 2880 
13  13  0 

1 2 9 6 0 
13150 

1 2990 
1 32  30 

13  0 10 
1 3240 

1 3 0 5 0 

1 3050 

1 3070 
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P 6 

1 2770 
1 3070 

1 2890 
13130 

1 2960 
13  160 

1 3000 
1 3230 

1 3020 
1 3240 

1 3060 

1 3060 

1 3070 

Q 

1 2 770 

1 3200 

13210 

1 3220 

1 3250 

1 3270 

R 

12770 

13170 

13180 

13190 

R 1 

1 2 770 

13010 

1 3050 

R2 

1 2 770 

1 3 0 2 0 

1 3060 

S 

12  770 

1 2960 

1 2970 

1 2980 

1 2990 

1 3000 

13170 

S3 

1 2 770 
1 3260 

1 2970 
1 3260 

1 3030 
1 3270 

13100 
1 3270 

1 3200 

1 32  30 

1 3240 

1 3250 

S 4 

1 2770 

1 2980 

1 3040 

13130 

13170 

S 5 

1 2 770 
1 3250 

1 2990 
1 3260 

1 3050 
1 3260 

13110 
1 3 2 7 0 

1 3200 
1 3270 

132  10 

1 3230 

1 3240 

S 6 

1 27  70 
1 3240 

1 3000 
1 3250 

1 3060 
1 3260 

13120 
1 3260 

1 3200 
1 3270 

132  10 

1 3220 

1 3230 

T 

1 2 770 

1 3080 

13180 

13190 

W1 

1 2 7 70 

130  10 

13010 

13110 

132  10 

1 3230 

1 3250 

1 3260 

W2 

1 2770 
1 3 2 6 0 

1 3020 

1 3020 

1 3020 

13120 

132  10 

1 3230 

1 3250 

W3 

1 2770 
1 3270 

1 3020 

1 3020 

1 3020 

13120 

1 3220 

1 3240 

1 3260 
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13140  DR F FNT(A,A8,A9,B,B8,B9,Cm,C8,C9,D,E,F,G,H,I,K,0,P,P(*),P3,P4, 
P5,P6,Q,R,Rl,R2,S,S3,S4,S5,S6,T,Wl,W2,W3,X,Y,Z8,Fr,Il,Gli(*), 
Glr(*),Gl(*),Gla(*),Pout$) 


13350  OPTION  BASE  1 

13360  COM  F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*) 

1 3370  COM  File, Flag 
1 3 380  IF  I 1 > 1 THEN  1 = 11 
13390  GOSUB  13530 
13400  PRINTER  IS  16 

13410  PRINT  " PORT" , "MAG(REFL  CO E F ) " , " ARG ( RE F L COEF)" 

1 3420  PRINT  USING  V3490  ; VAL (Pout  $ ) , R , T 

13430  DEG 

1 3 4 4 0 G 1 ( I 1 ) = R 

1 34  50  Gla ( I 1 )=T 

1 3460  Glr ( I 1 )=COS (T  )*R 

1 3470  Gli ( I 1 ) = S I N ( T )*R 

13480  RAD 

1 3490  IMAGE  XM4 D , 1 4 XZ . 5 D , 1 1 XM 3 D . 3 D 

13500  Z 8 = R 

13510  PRINTER  IS  16 

13520  RETURN  0 

13540  0=FNG(A,B,Cm,D,E,F,G,H,I,K,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,S4, 

S 5 , S 6 , T , W 1 
, W 2 , W 3 , I 1 ) 

1 3550  Cm  = G - B 8 
1 3 560  D = H - B 9 
1 3570  E = 1 -G  * C 8 + H * C 9 
13580  P=-H*C8-G*C9 
13590  B = F,~2+P~2 
13600  A=(Cm*E+D*P)/B 
13610  B = ( D *E -Cm*  P ) / B 
13620  IF  1=2  THEN  13720 
1 3630  X = A*  A8- B * A9 
13640  Y=A*A9+B*A8 
1 3650  R = S0R(X*X+Y*Y  ) 

13660  T=ATN(Y/X)*1 80/PI 
13670  IF  X>0  THEN  13720 
1 3680  IF  Y >0  THEN  13710 
13690  T=T - 1 80 
13700  GOTO  13720 
13710  T=T+1 80 
13720  RETURN 
13730  ! 

1 3740  ! 


FNT  ( 


A 

1 3 3 4 0 

1 3540 

13600  13630  13640 

A8 

1 3340 

1 3630 

1 3640 

A9 

1 3340 

1 3630 

1 3640 
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B 

13  14  0 

1 3 5 4 0 

1 3 590 

1 3 6 0 0 

1 16  1 0 

13  6 1 0 

136  10 

1 1 6 4 0 

B 3 

1 3 3 4 0 

1 3 5 5 0 

R 9 

1 3 3 4 0 

1 3 5 6 0 

C<8 

1 3 340 

1 3 57  0 

1 3 5 8 0 

C 9 

1 3 3 40 

1 3 5 7 0 

1 3 5 8 0 

Cm 

1 3 3 4 0 

1 3 5 4 0 

1 3 5 5 0 

1 3 60  0 

13610 

0 

1 3 3 4 0 

1 3 5 4 0 

1 3 5 6 0 

1 3 6 0 0 

13  6 10 

E 

1 3 3 4 0 

1 3 5 4 0 

1 3 570 

1 3 5 9 0 

1 3600 

13  6 10 

F 

1 3 340 

1 3 5 4 0 

Fr 

1 3 3 4 0 

G 

1 3 3 4 0 

1 3 540 

1 3 5 5 0 

1 3 5 70 

1 3 5 8 0 

Cl( 

1 3340 

1 3440 

G 1 a ( 

1 3 340 

1 34  50 

Gli  ( 

1 3 3 4 0 

1 3 4 7 0 

Glr  ( 

1 3 3 4 0 

1 3460 

H 

1 3 340 

1 3 5 4 0 

1 3 5 6 0 

1 3 5 7 0 

1 3580 

I 

1 3340 

1 3380 

1 3540 

1 3620 

11 

1 3340 

1 3380 

1 3380 

1 3440 

1 34  50 

1 3460 

1 3470 

1 3540 

K 

1 3340 

1 3540 

0 

1 3340 

1 3520 

1 3540 

P 

1 3340 

1 3540 

1 3580 

1 3 5 9 0 

1 3600 

13  610 

P( 

1 3340 

1 3540 

P 3 

1 3340 

1 3540 

P 4 

1 3340 

1 3540 

P 5 

1 3340 

1 3540 

P 6 

1 3340 

1 3540 

Po  ut  $ 

1 3 3 4 0 

1 3420 

Q 

1 3340 

1 3 540 
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R 

1 3 340 

1 3 4 2 0 

1 3440 

1 3 4 6 0 

1 3 4 7 0 

1 3 5 0 0 

1 3 5 4 0 

1 3 6 5 0 

R 1 

1 3340 

1 3 3 4 0 

R2 

1 3 3 4 0 

1 3540 

S 

1 3 3 4 0 

1 3 5 4 0 

S3 

1 3340 

1 3540 

S 4 

1 3340 

1 3 5 4 0 

S 5 

1 3340 

1 3 5 4 0 

S 6 

1 3 3 4 0 

1 3540 

T 

1 3340 

1 34  20 

1 3 4 5 0 

1 3460 

1 3 4 7 0 

1 3540 

1 3660 

1 3690 

1 3690 

137  10 

13  7 10 

W1 

1 3340 

1 3 540 

W 2 

1 3 3 4 0 

1 3540 

W 3 

1 3340 

1 3540 

X 

1 3340 

1 3630 

1 3650 

1 3 6 5 0 

1 3660 

1 3670 

Y 

1 3340 

1 3640 

1 3 6 5 0 

1 3650 

1 3660 

1 3680 

Z 8 

1 3340 

1 3 500 
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13750  DEF  FNU(A,B,Cm,D,E,F,F3,G,H,I,K,0,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2, 
S , S 3 , S 4 , S 5 , S 6 , T , W 1 , W 2 , W 3 , Z 1 , Z 2 , Z 3 ) 

13760  OPTION  BASE  1 

1 3770  COM  F(* ) ,Z (*) ,T1 , T2 , T3 ,Qr(* ) ,Qi (*), Final (*  ) 

1 3780  COM  File, Flag 

13790  ! SOLUTION  FOR  NET  POWER 

13800  0=FNG( A, B , Cm,D,E,F,G,H,I,K,0,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3, 
S4,S5,S6,T,W1 , W 2 , W 3 ) 

13810  F3=1-((G-Z1 )~2+(H-Z2) ~2 )/Z3 
13820  RETURN  0 

1 3830  RE-SAVE  " CORR"  , 1 3 8 3 0 , 1 5 7 6 0 ! 2 2 MARCH  1 983  0930  GJC 
FNU  ( 


A 

1 3 7 5 0 

1 3800 

B 

1 3 7 50 

1 3800 

Cm 

1 3750 

1 3800 

D 

1 3750 

1 3800 

E 

1 37  50 

1 3800 

F 

1 37  50 

1 3800 

F 3 

1 37  50 

13810 

G 

1 3 7 50 

1 3800 

13810 

H 

1 3 7 50 

1 3800 

13810 

I 

1 3 7 50 

1 3800 

K 

1 37  50 

1 3800 

0 

1 37  50 

1 3800 

1 3800 

P 

1 37  50 

1 3800 

P( 

1 3 7 50 

1 3800 

P 3 

1 37  50 

1 3800 

P 4 

1 37  50 

1 3800 

P 5 

1 37  50 

1 3800 

P 6 

1 37  50 

1 3800 

Q 

1 37  50 

1 3800 

R 

1 37  50 

1 3800 
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R 1 

1 3 7 5 0 

1 3800 

R 2 

1 37  50 

1 3800 

S 

1 37  50 

1 3800 

s :3 

1 37  50 

1 3800 

S 4 

1 37  50 

1 3800 

S 5 

1 37  50 

1 3800 

S 6 

1 37  50 

1 3800 

T 

1 3 7 50 

1 3800 

W1 

1 37  50 

1 3800 

W 2 

1 37  50 

1 3800 

W 3 

1 37  50 

1 3800 

Z 1 

1 37  50 

13  810 

Z 2 

1 3750 

13810 

Z 3 

1 37  50 

13  810 
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13840  SUB  Corrl (Cl , P0 , E 7 , E 8 , Q ( * ) ,Aet) 

13850  OPTION  BASE  1 

1 3860  COM  F(*  ) ,Z (*  ) , T1  , T2 ,T3 , Qr (* ) ,Qi (*) ,Final(* ) 

1 38  70  COM  File.Flaq 
1 3880  DIM  A $ [ 1 0 0 ] 

13890  FI =Z (1,37) 

1 3900  F2=Z( 1 , 38  ) 

13910  F 3 = Z ( 1 ,39) 

1 3 9 2D  N 3 = 5 
1 3930  N 8 = 2 

13940  PRINT  N8,N3,"N8,N3" 

13950  PRINTER  IS  0 

13960  PRINT  "************************************************************" 
13970  PRINT 

13980  IF  P0=2  THEN  GOTO  14000 

13990  PRINT  "PLACE  STANDARDS  ON  PORTS  2 AND  0, PRESS  CONTINUE" 

14000  OUTPUT  9 ; "R" 

14010  ENTER  9 ; P $ 

14020  PRINT  TAB ( 20  ) , "DATE : " ; P $ [ 1 , 2 ] ; ; P$ [ 4 , 5 ] ; "- 1 982"  ; " TIME : " ; P $ [ 7 , 1 4 } 

14030  PRINT 

14040  PRINTER  IS  16 

14050  Z9=T7=T8=T9=P7=P8=P9=0 

14  060  W 4 =W  5 = W 6 = 0 

14070  ! 

14080  C = 0 

14090  M = 1 ! SET  VALUE  FOR  Freq  SUBROUTINE 

14  100  Fn=(Z(l , 3 8 ) - Z ( 1 ,37))/Z( 1 , 3 9 ) + 1 
14110  PRINT  Fn 
14120  PO$="NOM2L5K5" 

14130  F1=F1*10~6 
14140  F = F 1 

14150  OUTPUT  704  ; "0  OH  0 " & V AL $ ( F 1 )&P0$ 

14160  ! CALL  Fre q ( F , F $ , F 1 $ , P0$ , M , Ccc ) 

14170  PRINT  F , FI 
14180  M=2 

14  190  X8  = V 2 = T 1 =T 8 = T 9 = T 7 = P 7 = P 8 = P 9 = P 4 = P 5 = P 6=W4  = VJ  5 = W 6 = W 1 = W 2 =W  3 = Z = 0 

1 4200  FOR  J 8= 1 TO  N8+1 

14210  T 1 =T  4 = V 2 =P  4 =P  5 = P 6 = W 1 = W 2 =W  3 = 0 

14220  PRINTER  IS  0 

14230  FOR  Z 2 = 1 TO  N3 

14240  IF  P 0 = 0 THEN  P0  = 1 

14250  CALL  Powe r ( P 1 , P2  , P 3 , PO , Ae t ) ! CALL  POWER  SUBROUTINE 

1 4260  Y 1 =P 1 / P 2 

14270  Y3=P3/P2 

14280  X8  = (Y3-1 )/ ( Y 1 — 1 ) 

14290  IF  J 8 = 1 THEN  GOTO  14  380 

14300  IF  ABSCX8-E9 )> . 560  THEN  GOTO  14330 

14310  GOTO  14350 

14320  PRINTER  IS  16 

14330  PRINT  "DEV  EXC EE DS " ; E 9 ; " RE  PE AT  I NG  MEASUREMENT" 

14340  GOTO  14250 
14350  PRINTER  IS  16 
14  3 60  PRINT  E 9 
14370  PRINTER  IS  0 
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14380 
1 4390 
14400 
14410 
14420 
14  4 3 0 
14440 
14450 
14460 
14470 
14480 
14  4 9 0 
1 4500 
14510 
14520 
14  5 3 0 
1 4 540 
14550 
14560 
1 4 570 
14580 
1 4 590 
14600 
146  10 
14  6 2 0 
1 46  30 
14640 

146  50 
14660 
14670 
14680 
14690 
14700 

147  10 
14720 
1 47  30 
14740 
1 4 7 50 
14  7 6 0 
1 4 7 70 
1 4780 
1 4790 
14800 
14810 
1 4820 
1 4830 
14840 
14850 
1 4360 
14870 
1 4 8 8 0 
1 4890 
14900 
149  10 
14920 


PRINT  X8;P1*1000;P2*1000;P3*1000 
IF  J 8 = 1 THEN  144  30 
Z = Z - 1 
! PAUSE 
PRINTER  IS  0 
T 1 =T 1 + X 8 

T4=T4+(T3-Y3*T2)/(Y3-1) 

DISP  "T4",T4 
V 2 = V 2 +X  8 *X  8 
P4  =P  4 + P 1 
P 5 =P 5 + P 2 
P 6 =P  6 + P 3 
Wl=Wl+Pl*Pl 
W2=W2+P2*P2 
W 3 =W  3+P  3 *P  3 
NEXT  Z 2 
T 4 =T  4 /N 3 

S=SQR((V2-T1*T1/N3)/(N3-1)) 

T 1 =T 1 /N  3 
E 9 = T 1 

i 

! PLOT  AVERAGE  OF  5 MEASUREMENTS 

i 

PRINTER  IS  0 
IF  J 8 > 1 THEN  14  940 
I 6 = T 1 
Q 5 = 1 0 0 
I5=Q5/25 

IMAGE  5X,”TX(K)  =",M7D.  ,"SIG(K)  =",M5D. 

IMAGE  /,/,/,/ 

D9=  1 

Q = FNS ( 2 ) 

F = F ( 1 , 1 ) ! Z( 1 , 37  ) — 30 

PRINT  F ; "MHZ" , "I .F . FREQUENCY  MHZ:  30", "LO  FREQ  MHZ:";F 

PRINT  USING  14670 

IMAGE  1 7 X , " # OF  PTS  IN  AVE  =",M3D 
IMAGE  7 X , " UN  I T = " , M 9 D . D , " P W R RATIO",/ 

PRINT  USING  1 4 7 3 0 ; N 3 
PRINT  USING  14  7 4 0 ; 15 
PRINT 

IF  Q 5 >= 1 0 THEN  14  830 

PRINT  USING  1 4 820  ; -Q5  , -3*Q5/5 , -Q5/5 , Q5/5 , 3*Q5/5 , Q5 
GOTO  14840 

IMAGE  4 X , M 5 D ,4X,M5D  ,4X,M5D  ,4X,M5D  ,4X,M5D  ,4X,M5D  ,"  KELVINS" 
IMAGE  5X,M1DE,4X,M1DE,4X,M1DE,4X,M1DE,4X,M1DE,4X,M1DE,"  KELVINS" 
PRINT  USING  1 48  1 0 ; -Q5 , -3*Q5/5 , -Q5/5 , Q5/5 , 3*Q5/5 , Q5 
A$= " 

PRINT  TAB(8),A$ 

IMAGE  "# /TIME" , 2 IX , "ZERO-" ,M5D  ,"  PWR  RATIO" 

IF  (Tl>=100)  AND  (T1<=1E5)  THEN  14910 
PRINT  USING  1 4 890 ; I 6 

IMAGE  "# /TIME" , 2 IX , "ZERO=" ,M1D . 2DE , " PWR  RATIO" 

GOTO  14930 

PRINTER  IS  0 

PRINT  USING  1 4 8 6 0 ; I 6 


! SUM  OF  Tx 
! SUM  OF  Te 

! SUM  Tx  ~ 2 
! SUM  PI 
! SUM  P 2 
! SUM  P 3 
! S UM  P 1 ~ 2 
! SUM  P 2 ~ 2 
! SUM  P 3 ~ 2 

! AVE  Te 

!S.D.  OF  Tx 

! AVE  Tx  SET  OF  5 
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14930 
14  9 4 0 

14  950 
1 4960 
1 4970 
14980 
1 4990 
1 5 0 0 0 
15010 
l 5020 
1 5030 
1 5040 
1 5050 
1 5060 
1 5070 
1 5080 
1 5090 

15  100 
15  11  0 
15120 
15  130 
15140 
15  150 
15  160 
15  170 
15180 
15  190 
1 5200 
15  2 10 
1 5220 
1 52  30 
1 5240 
1 5250 
1 5260 
1 5270 
1 5280 
1 5290 
15300 
15  310 
1 5320 
15330 
1 5340 
1 5 350 
1 5 360 
1 5 370 
1 5380 
1 5390 
1 5400 
154  10 
1 5420 
1 5430 
1 5440 
1 5 4 5 0 
1 5460 
1 5470 


GOTO  15010 
I 6 = T 1 

IMAGE  M 3 D , 4X 
PRINTER  IS  0 
PRINT  USING  14950; J 8-1 
PRINT  USING  1 4 9 9 0 ; T 1 , S 
IMAGE  2 X , M 5 D ,2X,M5D 
GOTO  15040 
PRINT  T A B ( 8 ) , A$ 

IF  J 8 > 1 THEN  1 5040 

GOTO  15140 

T 1 = T 1 *N  3 

T 8 = T 8+T  1 

T 9 = T 9 + T 4 

T7=T7+V2 

P 7 = P 7 -PP  4 

P 8 = P 8 + P 5 

P 9 = P 9 + P 6 

W 4 =»W4+W  1 

W 5 =W 5+W  2 

W6  = W 6+W  3 

NEXT  J 8 

T 1 =T  8 / (N8*N 3 ) 

T 4 =T  9 /N  8 

S1=SQR((T7-T8*T8/(N8*N3))/(N8*N3-1)) 
IF  P0=1  THEN  15330 


! SUM  OF  T 1 
! SUM  OF  T4 
! SUM  OF  Tl~2 
! SUM  OF  PI 
! SUM  OF  P2 
! SUM  OF  P 3 
! S UM  OF  PT2 
! SUM  OF  P 2 ~ 2 
! SUM  OF  P 3 ~ 2 

! AVE  VALUE  TX  1 FULL  SET 
! AVE  VALUE  Te  1 FULL  SET 
! S . D Tx  1 FULL  SET 


STORE  VALUES  IN  Z MATRIX 


Z ( 1 , 7 ) = T2 

Z( 1 , 8 ) = T3 

Z ( 1 , 9 ) = T 1 

Z(  1 , 10 )=S  1 

Z ( 1 , 1 1 )=T4 

Z(  1 , 12  )=P8/(N8*N3) 

B 6 = T 7 

Z ( 1 , 4 1 ) = B 6 
B 8 = T 8 

Z ( 1 , 42  ) = B8 

GOTO  15480 

Z ( 1 , 1 )=T2 

Z(  1 , 2 )=T3 

Z ( 1 , 3 ) =T  1 

Z( 1 ,4)=S1 

Z ( 1 , 5 )=T4 

Z( 1 ,6)=P8/(N3*N8) 

B 5 = T 7 
B 7 =T  8 

Z( 1 , 4 3 ) = B 5 
Z ( 1 , 4 4 ) = B 7 

! REM  B 5 AND  B6  = SUM  OF  SQRS-B7 


! SET  2 

! SUM  OF  SQRS  TX  SET  2 
! SUM  OF  Tx  SET  2 

! SET  1 

! SUM  OF  SQRS  TX  SET  1 
! SUM  OF  TX  SET  1 

AND  B 8 = S U M OF  T1 


PRINT  RESULTS  OF  FULL  SET 


PRINTER  IS  0 
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1 5480  PRINT  " RATIO  AVE  STI)  DEV  " 

15490  PRINT 

1 5 5 0 0 PRINT  USING  1 5 5 1 0 ; T 1 , S 1 
15  5 10  IMAGE  5 X , 1 D . 5 D , 2 X , 7 D . 5 D 

15520  PRINT 
15510  PRINT 

1 5540  PRINT  "PI  AVE  MW  = " ; P 7 / ( N 3 *N 8 ) ; " P 2 AVE  MW  = " ; P 8 / ( N 3 *N 8 ) ; 

"P  '1  AVE  MW  = " ; P 9 / ( N 3 * N 8 ) 

15550  PRINT 

1 5 560  PRINT  "STANDARD  ERROR  OF  M E AN  = " ; S 1 / S Q R ( N 8 *N 3 ) 

15570  PRINT 


! A V E 
! AVE 
! AVE 


OF 

OF 


P 1 
P 2 
P 3 


SET  1 
SET  1 
SET  1 


15580  PRINT 
15590  7,  = 3 * S 1 
15600  PRINTER  IS  16 
15610  IF  P 0 = 2 THEN  1 5650 
1 56  20  Z ( 1 , 45 ) = P7/ (N3*N8  ) 

15610  Z( 1 , 4 6 ) = P8/ (N3*N8  ) 

15640  Z( 1 ,47 )=P9/(N3*N8) 

1 5650  IF  P 0 = 1 THEN  15710 
15660  ! B 5 AND  B6  = SUM  OF 

15670  Z ( 1 ,48)=P7/(N3*N8) 

1 5680  Z( 1 , 49 ) = P8/(N3*N8  ) 

15690  Z(1,50)=P9/(N3*N8) 

15700  Q=FNB ( 1 ) 

15  7 10  Z 8 = 1 

1 5720  IF  P 0 = 2 THEN  GOTO  1 5 7 50 

15730  PRINT  "INTERCHANGE  DEVICES  ON  PORTS  AND  PRESS  CONT" 
15740  PAUSE 


SQRS  Tl;  B 7 AND 


B 8 = S U M OF 
SAVE  OF 
! AVE 
! AVE 


OF 

OF 


Tl 
PI 
P 2 
P 3 


SET  2 


1 57  50 
1 5 7 6 0 
1 5 7 7 0 

M = 2 

SUBEND 

RE-SAVE 

"Corr 2 " , 

15780,16970 

S Co  r r 1 ( 

A $ 

1 3880 

14840  14850 

Ae  t 

1 3840 

1 4250 

B 5 

1 5 390 

154  10 

B 6 

1 5 2 8 0 

1 5 2 9 0 

B 7 

1 5400 

1 5420 

B 8 

1 5300 

15310 

C 

14080 

C 1 

1 3840 

D 9 

1 4680 

E 7 

1 3840 
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E 8 13840 


E9 

1 4300 

1 4330 

1 4 3 6 0 

1 4570 

F 

14  140 

14  170 

1 4 700 

14710 

147  10 

F ( 

* 

1 4 700 

FI 

1 3890 

14  13  0 

14  13  0 

14140 

14  150 

14170 

F 2 

1 3900 

F 3 

13910 

Fn 

14100 

14  110 

15 

1 4650 

1 4 7 6 0 

16 

1 46  30 

1 4880 

1 4920 

1 4 9 4 0 

J 8 

14200 

1 4290 

1 4 3 9 0 

1 4620 

1 4 9 7 0 

1 5020 

15140 

M 

14090 

14180 

1 57  50 

N 3 

1 3920 

1 3940 

1 4 2 3 0 

1 4 5 4 0 

1 4 550 

1 4550 

1 4560 

1 47  50 

1 5040 

15150 

15  170 

15170 

1 52  70 

1 5380 

1 5540 

1 5540 

1 5540 

1 5560 

1 5620 

1 5630 

1 5 6 4 0 

1 5670 

1 5680 

1 5690 

N 8 

1 3930 

1 3940 

1 4200 

1 5150 

15  160 

15170 

15170 

1 5 2 7 0 

1 5380 

1 5540 

1 5540 

1 5540 

1 5560 

1 5620 

1 5630 

1 5640 

1 5670 

1 5680 

1 5690 

P$ 

140  10 

14020 

14020 

14020 

P0 

1 3840 
1 57  20 

1 3980 

1 4240 

1 4240 

1 4 2 5 0 

15180 

15610 

1 5650 

P0$ 

14  120 

14  150 

PI 

14250 

1 4260 

14380 

14470 

14500 

14  500 

P2 

14250 

1 4260 

1 42  70 

1 4380 

14480 

14510 

14510 

P 3 

1 4250 

1 42  70 

1 4380 

14490 

14520 

1 4520 

P 4 

14190 

142  10 

1 4470 

1 4470 

1 5080 

P 5 

14190 

142  10 

14480 

14480 

1 5090 

P 6 

14  190 

142  10 

1 4490 

1 4490 

15100 

P 7 

1 4050 

14190 

1 5080 

1 5080 

1 5 540 

1 5620 

1 5670 

P 8 

1 4050 
1 5680 

14  190 

1 5090 

1 5090 

1 5270 

1 5380 

1 5540 

1 5630 
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P 9 

14050 

14190 

15100 

15100 

1 5540 

1 5640 

1 5690 

Q 

14690 

1 5700 

Q ( 

1 3840 

Q5 

14640 

14790 

1 4650 
14  8 3 0 

1 4780 
1 4830 

1 4790 
14830 

1 4 7 9 0 
1 4830 

14790 

14830 

14790 
1 4830 

14790 

s 

14550 

14980 

S 1 

15170 

1 5250 

1 5360 

1 5500 

1 5560 

1 5590 

T 1 

* 

1 4560 
1 5040 

14  190 
14570 
1 5050 

142  10 
1 4630 
15  150 

144  30 
1 4870 
1 5240 

1 4430 
1 4870 
1 5350 

1 4550 
1 4940 
1 5500 

1 4 5 5 0 
1 4980 

1 4560 
1 5040 

T 2 

* 

14440 

1 5220 

1 5330 

T 3 

* 

14440 

1 52  30 

1 5340 

T 4 

142  10 
1 5260 

14440 
1 5 370 

14440 

1 4450 

1 4540 

1 4540 

1 5060 

15160 

T7 

14050 

14190 

1 5070 

1 5070 

15  170 

1 5280 

1 5390 

T8 

1 4050 
1 5400 

14  190 

1 5050 

1 5050 

15150 

15170 

15170 

1 5300 

T9 

1 4050 

14190 

l 5060 

1 5060 

15160 

V2 

14190 

142  10 

1 4460 

1 4460 

1 4550 

1 5070 

W1 

14  190 

14210 

14500 

14500 

15  110 

W2 

14190 

142  10 

14510 

14510 

15120 

W 3 

14  190 

142  10 

1 4520 

1 4520 

15130 

W4 

1 4060 

14  190 

15110 

15  110 

W 5 

1 4060 

14190 

15120 

15120 

W6 

14060 

14190 

15130 

15130 

X8 

14  190 

14280 

1 4300 

1 4380 

1 4430 

14460 

1 4460 

Y 1 

1 4260 

14280 

Y 3 

1 4270 

1 4280 

1 4440 

1 4440 

Z 

14  190 

1 4400 

14400 

1 5 590 
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z( 

* 

1 3890 

1 3900 

13910 

14100 

14100 

14  100 

1 5220 

1 52  30 

1 5240 

1 52  50 

1 5260 

1 52  70 

1 5290 

153  10 

1 5330 

1 5340 

1 5350 

1 5360 

1 5370 

1 5 380 

154  10 

1 5420 

1 5620 

1 5630 

1 5640 

1 5670 

1 5680 

1 5690 

Z 2 

1 4230 

1 4530 

ZB  15710 


Z 9 14  0 5 0 
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15780  EUR  Corr2(Cl,C$,G$,R$,E7,E8,Q(*),Aet) 

15790  OPTION  BASE  1 

15800  COM  F ( * ) , Z ( * ) ,T1  ,T2,T3,Qr(*)  , Q i ( * ) , F i n a I ( * ) 

15810  COM  File, Flag 
15820  PRINTER  IS  16 
1 58  30  F 1 =Z ( 1 , 37  ) 

15840  F2=Z(1  ,38) 

1 58  50  F3  = Z( 1 , 39  ) 

15860  N 3 = Z ( 1 ,25) 

1 5870  N8  = Z ( 1 , 40  ) 

1 5880  Fn= (F2-F 1 ) / F 3 + 1 
1 5 890  Q = F N S ( 4 ) 

15900  F 1 =F 1 -F  3 

15  910  FOR  F r = 1 TO  Fn 
15920  F=F 1 +Fr*F3* 1 E6 
1 5930  FOR  P 0 = 1 TO  2 

15940  ON  PO  GOTO  15970,16030 
15950  ! 

15960  ! 

15970  PRINT  "STARTING  PROGRAM  CORR2  15730" 

15980  REM  LEVEL  LOOP 
1 5990  ! N3  = Z(  l ,25) 

16000  ! N 8 = Z ( 1 ,40) 

16010  N 3 = 5 
16020  N 8 = 2 
16030  N=N3*N8*2 
1 6 040  Z( 1 , 3 1 )=N 

16050  CALL  Cor r 1 (Cl , PO , E7 ,E8 , 0( * ) , Aet ) ! MEASUREMENT  OF  THE  TEMP  OF  UNKNOWN 

16060  NEXT  PO 

16070  ! !!!!!!!! READ  DATA  FROM  CAL  MATRIX  HERE!!!!!!!!!!!!!!! 

16080  MASS  STORAGE  IS  ":F8,1" 

16090  LINPUT  "FILE  #",Fcal$ 

16  100  C a 1 $ = " A U X "&Fcal$ 

16110  ASSIGN  #1  TO  Cal$ 

16  12  0 READ  // 1 ; F ( * ) 

16130  P r t = 1 

16140  Tlave=(Z( 1 , 3 ) +Z ( 1 , 9 ) ) / 2 SAVE  VALUE  OF  T1 
16150  Ml=(l-F(3,ll)"2)*(l-F(3,9)"2) 

16  160  M2  = ( 1 -F(  3 , 1 3 )*F(  3 , 3 )+F(  3 , 1 4 )*F(  3 , 5)  ) ~2+(F(  3 , 1 3 )*F(  3 , 5)-t-F(  3 , 14  )*F(3  , 3 ) ) "2 
16170  M x 1 = M 1 / M 2 
16  18  0 P r t = 2 

16190  Ml=(l-F(4, ll)~2)*(l-F(4,9)~2) 

1 6 200  M 2 = ( 1 -F ( 4 , 13  ) * F ( 4 , 3 ) + F ( 4 , 1 4 ) * F ( 4 , 5 ) ) ~ 2 + ( F ( 4 , 1 3 ) * F ( 4 , 5 ) + F ( 4 , 1 4 ) * F ( 4 , 3 ) ) ~ 2 
16210  Mx2  = M 1 / M2 

1 6 2 2 0 M l = (l-F(4,ll)*2)*(l-F(3,9)~2) 

16  230  M 2 = ( 1 -F(4 , 1 3 )*F( 3 , 3 )+F(4 , 14 )*F( 3 , 5 ) ) ~2  + (F(4 , 1 3 )*F( 3 , 5 )+F(4 , 14  )*F( 3 , 3 ) ) ~2 
16240  Mx3=Ml/M2 

16  2 5 0 Ml  = (l-F(3,  11  ) ~ 2 ) * ( 1-F(4,9)"2) 

16  260  M 2 = ( 1 - F ( 3 , 1 3 ) * F ( 4 , 3 ) +F ( 3 , 1 4 ) * F ( 4 , 5 ) ) ~ 2 + ( F ( 3 , 1 3 ) * F ( 4 , 5 ) +F ( 3 , 1 4 ) * F ( 4 , 3 ) ) ~ 2 
1 62  70  M x 4 = M 1 / M 2 

1628  0 Re  s u 1 1 = S OR ( Mx 1 *Mx3 / ( Mx2 *Mx4  )*Z( 1 , 3 ) *7 ( 1 , 9 ) ) 

16  2 9 0 Z ( 1 , 5 7 ) = A e t a r a t i o = R e s u 1 1 
1 6 300  T 2 a v e = ( Z ( 1 , 1 )+Z ( 1 , 7 ) ) / 2 
16310! 
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1 6 320 
1 6 3 3 0 
1 6340 
16350 
1 6360 
1 6 3 7 0 
16380 
16390 
16400 
16410 
1 6420 
16430 
16440 
16450 
16460 
16470 
16480 
16490 
16500 
16  5 10 
16  520 
16  530 
1 6 540 
1 6 550 
16  5 6 0 
1 6 5 70 

16580 
1 6 590 
1 6600 
166  10 
16620 
16630 
16640 
16650 
16660 
16670 
1 6680 
1 6690 
1 6 700 
16710 
1 67  20 
1 67  30 
1 6740 
1 67  50 
16  7 60 
1 6 7 70 
1 67  80 
1 67  90 
16  8 0 0 
16810 
1 6820 
1 6830 
1 6840 


REM  PRELIMINARY  RESULTS! 

! A$  = " 

N = N 3*N8*2 
PRINTER  IS  0 
! PRINT  PAGE 
Q = F N S ( 1 0 ) 

PRINT  TAB( 2 3 ),  "MEASUREMENT  RECAP" 

Q = FN  S (10) 

PRINT- 

PRINT  TAB(  6 ) , "FREQUENCY-"  ; F ( 1 , l ) ; "MHZ  IF  F REQ IJ E NC Y = 3 0 " ; "MUZ " 
Z(  1 , 58  ) = F=F( 1 , 1 ) 

PRINT 

PRINT  T A B ( 6 ) ,A$ 

Q=FNS ( 2 ) 

PRINT  TAB(ll), "Mx 1 , Mx2  ,Mxl  ' ,Mx2  ' " 

FIXED  11 

PRINT  TAB( 1 1 ) ,Mxl  ; " ";Mx2;"  ";Mx3;"  " ; Mx4 

PRINT 

PRINT  TAB( 1 1 ) , "Aeta  ratio ";TAB(26) ," Sa" 

FIXED  5 

PRINT  T A B ( 6 ) , " " 

PRINT  TAB(8),Z(l , 3);TAB(26),Z(1 ,4) 

PRINT  TAB( 8 ) ,Z ( 1 , 9 ) ; TAB( 26  ) , Z ( 1 , 10 ) 

PRINT 

PRINT  "Aeta  Ratio  WITH  Mismatch  Terms=" 

PRINT  " [ M x 1 / M x 2 ) ( Mx 1 ' / Mx 2 ' ) ( Y x 2 - 1 ) / ( Yx 1 - 1 ) ( Yx 2 ' - 1 ) / Y x 1 ' - 1 ) ] * 1 / 2 

; Result 

PRINT  "DB  FOR  R AT 1 0 = " ; 1 0 *LGT ( Re s u 1 1 ) 

PRINT  TAB(6),"3  * SEM  FOR  ENTIRE  SET  OF  MEASUREMENTS  WAS  ";Z(1, 
PRINT  TAB(6),A$ 

PRINT 

STANDARD 


N 9 = Z ( l , 3 1 ) 

PRINT  TAB ( 6 ) , " AVE  POWER  IN  MILLIWATTS  P1.P2.P3  DEV  1" 
PRINT  TAB (6  ) ,Z(  1 , 4 5 )*1000  , Z(  1 , 4 6 )*1000 ,Z(  1 , 4 7 )*1000 
PRINT  TAB(6),"4VE  POWER  IN  MILLIWATTS  P1.P2.P3  DEV  2" 
PRINT  TAB(6),Z(1,48)*1000,Z(1,49)*1000,Z(1,50)*1000 
FIXED  4 

PRINT  T A B ( 6 ) ,A$ 

PRINT 

PRINT  "AMBIENT  STANDARD  TEMPERATURE:  ";T2 

PRINT 


Aeta  = Z(  1 , 57  ) = Result 
N 1 =N  3 *N  8 

Y 1 a = Z ( 1 , 4 5 ) / N 1 / ( Z ( 1 , 4 6 ) / N 1 ) 
Y l b = Z ( 1 , 4 8 ) / N 1 / ( Z ( 1 , 4 9 ) / N 1 ) 
Y 1 c = Z ( 1 . 47 )/N 1 / (Z(  1 , 46 )/N  1 ) 
Yld  = Z(  1 , 50  )/N  1/(Z( 1 ,49)/N  1 ) 
PRINT  " END  OF  MEASUREMENT 
FIXED  0 

MASS  STORAGE  IS  ":F8,1" 
PRINT  "PLACE  CAL  DISC  IN  F8 
PAUSE 

LINPUT  "FILE  NAME,  CORR+#  " 


! RATIO  DEVICE  1 TO  AMBIENT  PORT 

! RATIO  DEVICE  2 TO  AMBIENT  PORT 

! RATIO  DEVICE  2 TO  AMBIENT  PORT 

! RATIO  DEVICE  1 TO  AMBIENT  PORT  3 

II 


1 PRESS  CONT" 


Co  r r $ 


13) 


2 SET  1 

2 SET  2 

3 SET  1 
SET  2 
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16850  CREATE  Corr$,10 
16860  ASSIGN  #1  TO  Corr$ 

16870  Pa  1 =Z ( 1 , 46  ) /N 1 ! PWR  A SET  1 
16880  Pa2=Z ( 1 , 49  ) /N 1 ! PWR  A SET  2 
16890  Pc  1 =Z( 1 , 45  )/N  1 ! PWR  PORT  2 SET  1 

16900  Pc2=Z( 1 ,48)/Nl  !PWR  PRT  2 SET  2 
16910  Pc3=Z( 1 , 47  )/N 1 !PWR  PORT  3 SET  1 
16920  Pc4=Z(l  , 50  ) /N  1 ! PWR  PORT  3 SET  2 

16930  PRINT  #1 ; Ae ta , Yl a , Y1 b , Y1 c , Y1 d , Pa  1 , Pa2 , Pc  1 , Pc2 , Pc3 , Pc4 
16940  ASSIGN  //I  TO  * 

16950  SUBEXIT 
16960  PRINTER  IS  16 
16970  SUBEND 

16980  RE-SAVE  "SData  " . 1 6 9 8 0 . 1 9 1 1 0 ! J AN U AR Y 15.  1982  0832 


S Co  r r 2 ( 


A $ 

1 6440 

16600  16690 

Act 

1 5780 

1 6050 

Ae  t a 

1 67  30 

1 6930 

Aetarat io 

16290 

C$ 

1 5780 

Cl 

1 57  80 

1 6050 

Ca  1 $ 

16  100 

16110 

Co  r r $ 

1 6840 

16850  16860 

E7 

1 5780 

1 6050 

E 8 

1 5780 

1 6050 

F 

1 5920 

1 6420 

F ( 

* 

16120  16150 
16190  16200 
16230  16230 
16260  16260 

F 1 

1 5830 

15880  15900 

F 2 

1 5840 

1 5880 

F 3 

1 5850 

15880  15900 

F c a 1 $ 

1 6090 

16100 

F n 

1 5880 

15910 

16150 

16160 

16160 

16160 

16160 

1 6200 

16200 

1 6200 

1 6200 

1 6200 

1 6230 

1 6230 

1 6230 

1 6230 

16230 

1 6260 

1 6260 

16260 

16410 

1 6420 

15900  15920 


1 5920 


16160 
1 6200 
16250 
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Fr 

15  9 10 

1 5920 

G$ 

1 5780 

Ml 

1 6 1 50 

16  170 

16  190 

162  10 

1 6220 

16240 

1 6250 

M2 

16  160 

16170 

1 6200 

162  10 

1 62  30 

1 6240 

1 6260 

Mx  r 

16170 

1 6280 

1 6480 

Mx  2 

162  10 

1 6280 

1 6480 

Mx  3 

1 6240 

1 6280 

1 6480 

Mx  4 

1 6 2 7 0 

1 6280 

1 6480 

N 

1 6030 

1 6040 

1 6340 

N 1 

1 6740 

1 6 7 5 0 

1 67  50 

1 6760 

1 6760 

1 6770 

1 67  70 

1 6780 

1 6870 

1 6880 

1 6890 

1 6900 

16910 

1 6920 

N 3 

1 5860 

16010 

1 6030 

1 6340 

1 6740 

N 8 

1 58  70 

1 6020 

1 6030 

1 6 340 

1 6740 

N 9 

1 66  30 

P0 

1 5930 

1 5940 

1 6050 

16060 

Pa  1 

1 6870 

1 6 9 3 0 

Pa  2 

1 6880 

1 6930 

Pc  1 

1 6890 

1 6930 

Pc  2 

1 6900 

1 6930 

Pc  3 

16910 

1 6930 

Pc4 

1 6920 

1 6930 

Prt 

16130 

16180 

Q 

1 5890 

1 6370 

1 6390 

1 6450 

Q ( 

1 57  80 

16050 

R$ 

1 5780 

Result 

16280 

1 6290 

1 6570 

1 6580 

1 67  30 

T 1 a ve 

16140 

T2 

* 

167  10 

T 2 a v e 

16300 

1 6270 
1 6270 


16780 


2 1 5 
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Y 1 a 

16  7 5 0 

16  9 0 0 

Y 1 b 

1 6 7 6 0 

1 6 9 0 0 

Ylc. 

1 6 7 7 0 

l 6900 

Y 1 d 

1 6780 

1 69  00 

z( 

* 

1 58  00 

1 5840 

16  14  0 

1 6280 

1 6 2 8 0 

16  5 0 0 

1 6540 

16  5 4 0 

1 6 6 7 0 

1 6 6 7 0 

1 6 6 7 0 

1 6 7 7 0 

1 6 7 7 0 

1 6 7 8 0 

16  910 

1 6920 

l 5850 

1 5 8 6 0 

1 5 8 7 0 

1 604  0 

16  140 

1 6290 

1 6 0 0 0 

1 6 0 0 0 

1 6420 

1 6 5 00 

1 6 5 9 0 

1 6 6 0 0 

1 6 6 5 0 

1 6650 

1 6650 

1 67  30 

1 6 7 5 0 

1 67  50 

1 6 7 6 0 

1 6760 

1 6 7 8 0 

1 6 8 7 0 

1 6 8 8 0 

1 6 8 9 0 

1 6900 

2 1 6 


RAD7EF 


16990  SUB  Report(P$,C$,G$,R$,H$,Fl , F 2 , F 3 , N 3 , N 8 , Q ( * ) ,Set) 

17000  OPTION  BASE  1 

17010  COM  F (*)  ,Z  (*), T1 , T2 , T3 , Qr (*), Qi (*),  Final (*  ) 

17020  COM  File, Flag 
17030  DIM  A $ [ 1 0 0 ] 

17040  S e t = 1 

17050  ! GOTO  17590 

17060  ! MASS  STORAGE  IS  " : F 8 , 1" 

17070  ! INPUT  "TAPE  //.FILE  NAME  ",T,Q$ 

17080  ! ASSIGN  //I  TO  Q$ 

17090  ! READ  # 1 ; P $ , C $ , G $ , R $ , H $ , F 1 , F 2 , F 3 , N 5 , N 8 , C 1 , C 2 , Z ( * ) , Q ( * ) , F ( * ) 

17  100  ! ASSIGN  //I  TO  * 

17110  REM  PRELIMINARY  RESULTS 

17120  A $ = " " 

17130  PRINTER  IS  0 
17140  ! PRINT  PAGE 
17150  Set= 1 
17160  FIXED  2 
17170  PRINT 
17180  OUTPUT  9 ; " R " 

17190  ENTER  9 ; P $ 

1 7200  PRINT  TAB( 20 ) , "DATE : " ; P $ [ 1 , 2 ] ; ; P$ [ 4 , 5 ] ; "-1  983"  ; " TIME : " ; P $ [ 7 , 1 4 ] 

17210  PRINT 

17220  PRINT  T AB ( 6 ) , A$ 

17230  ! PRINT  TAB(6),"TAPE  #: ";T," FILE:" ;Q$;TAB(50);R$[ 1,19] 

17240  PRINT  TAB( 6 ), "TEMPERATURE  OF  WATER  B ATH " ; H $ [ 1 , 1 0 ] 

17250  PRINT  TAB( 6 ), "BAROMETRIC  PRESSURE  MM  MERCURY H$ [ 1 1 , 20 ] 

17260  FOR  1=1  TO  8 
17270  PRINT 
17280  NEXT  I 

17290  PRINT  TAB( 23 ), "MEASUREMENT  RECAP" 

17300  PRINT  TAB( 30 ) , "AND" 

17310  PRINT  TAB(22 ) ."PRELIMINARY  RESULTS" 

17320  FOR  1=1  TO  7 

17330  PRINT 

17340  NEXT  I 

17350  Z(  1 , 34  ) = F(Set  , 1 ) 

17360  K = S e t 

17370  PRINT  TAB(8),"FREQUENCY=";F(K, 1 ) / 1000; "GHZ" 

17380  PRINT 
17390  PRINT 
17400  PRINT  TAB(6),A$ 

17410  PRINT  TAB( 1 1 ) , "TX" ; TAB( 2 1 ) , "SX" ; TAB( 34 ) , "TE" 

17420  PRINT  TAB  ( 6 ) , " " 

17430  PRINT  TAB(8 ) ,Z(K, 3 ) ; TAB( 20 ) , Z(K, 4 ) ; TAB( 32 ) , Z (K, 5 ) ; "( 1ST  50 
MEASUREMENTS ) " 

17440  PRINT  TAB(8  ) ,Z (K , 9 ) ; TAB( 20 ) , Z (K, 10 ) ; TAB( 32 ) ,Z(K, 1 1 ) ; " ( 2ND  50 
MEASUREMENTS ) " 

17450  PRINT 

17460  PRINT  TAB(6),A$ 

17470  PRINT 

17480  PRINT  T AB ( 8 ) , " AVE  Tna  ","AVE  Tne" 

17490  FIXED  0 

17500  PRINT  TAB(8),(Z(K,3)+Z(K,9))/2,(l-Mga~2)*Z(l,35) 


217 


RAD7EF 


17510  PRINT 
17520  FIXED  4 

17530  PRINT  T A B ( 3 ) , " REFLECTION  COEFFICIENT  MAGNITUDE  OF  DEVICE 
TESTED="; Z(Set ,64 ) 

17540  FIXED  2 

1 7 550  PRINT  TAB ( 8 ) , " REFLECTION  COEFFICIENT  ANGLE  OF  DEVICE  TESTED*"; 

Z (Set  ,63  ) ; "DEGREES" 

17560  PRINT 

17570  PRINT  " STANDARD  CK  1 = " ; Z ( 1 , 6 6 ) ; "K " 

17580  PRINT  " STANDARD  CK  2 = " ; Z ( 1 , 6 7 ) ; "K " 

17  590  PRINT  T A B ( 6 ) , A $ 

17600  STANDARD 
17610  N 9 = Z ( K , 3 1 ) 

1 7620  N =N  9 
17630  FIXED  2 

17640  PRINT  T AB ( 9 ) , " AVE  POWER  IN  MILLIWATTS  P1,P2,P3" 

1 7650  PRINT  USING  1 7 6 6 0 ; Z ( 1 , 4 5 ) / N 9 * 1 0 00  , Z ( 1 , 4 6 ) / N 9 * 1 0 00 , Z ( 1 , 4 7 ) /N 9 * 1 00 0 
1 7660  IMAGE  8 X , M D . 4 D , 5 X , M D . 4 D , 5 X , M D . 4 D 

17670  S 1 =.000006 ! SQR( ( Z(K, 48 )-Z(K, 45 )*Z(K, 45 ) /N ) / (N-l ) ) 

17680  S2=. 0000006 !SQR((Z(K,49)-Z(K,46)*Z(K,46)/M)/ (N-l )) 

17690  S3=. 0000007 !SQR((Z(K,50)-Z(K,47 )*Z(K,47 )/N)/ (N-l )) 

17700  FIXED  8 

17710  PRINT  USING  1 7 7 2 0 ; Z ( K , 3 1 ) , S 1 * 1 00 0 , S 2 * 1 00 0 , S 3 * 1 0 00 

1 7 720  IMAGE  8X,"SD  Pl,P2,P3  (#  OF  M E A S = " , M DD  D / 8 X , M D . D D D D , 3 X , M D . D D D D , 

3 X , M D . DD  D 

17730  PRINT  TAB( 6 ) , A$ 

17740  PRINT 
17750  PRINT 
17  760  Q = FN  S ( 8 ) 

17770  Tna  = Z(Set  ,35) 

1 7780  Mga=SQR(Z(Set  ,61  )“2+Z(Set  ,62  )~2  ) ! | GAMMA | 

17790  Z(Set  ,34  ) = Tne  = Tna*( 1 -Mg a ~ 2 ) 

17800  PRINT  USING  17810 

17810  IMAGE  "FREQ  GHZ",5X,"Tna  K",5X,"Tne  K",5X,"E1  K",5X,"3Sx  K",5X, 
"ENR  DB" , 5X , " E 2 DB" 

17820  PRINT  USING  17830 

1 7830  IMAGE  " ",5X," " , 5X  , " ",5X," ",5X," ",5X, 

" " , 5 X , " " 

17840  K$=VAL$ ( INT(Tna ) ) 

17850  IF  Tna-10000<0  THEN  GOTO  17930 
17860  IF  VAL ( K $ [ 5 , 5 ] ) > = 5 THEN  GOTO  1 7890 
1 7870  K $ [ 5 , 5 1 = " 0 " 

17880  GOTO  17910 
1 7890  K $ [ 5 , 5 ] = " 0 " 

17900  K$  [4 , 4 ] =VAL$ (VAL(K$ [ 4 , 4 ] ) + l ) 

17910  K = V AL ( K $ ) 

17920  GOTO  17990 

1 7930  IF  VAL(K$ [ 4 , 4 ] )>=5  THEN  GOTO  1 7960 
1 7940  K $ [ 4 , 4 ] = "0 " 

17950  GOTO  17980 
1 7960  K $ [ 4 , 4 ] = "0 " 

17970  K$[ 1 ,3]=VAL$(VAL(K$[ 1 , 3] )+l ) 

17  980  K = VAL ( K $ ) 

17990  L$=VAL$(Z(1 ,36)) 

18000  IF  V A L ( L $ [ 3 , 3 ] ) > 5 THEN  GOTO  1 8020 
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18010 
18020 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 
18  110 
18120 
18130 
18140 
18150 
18160 
18170 
18180 
18190 
18200 
18210 
18220 
18230 
18240 
18250 
18260 
18270 
18280 
18290 
18300 
18310 
1 8320 
18330 
18340 
18350 
18360 
18380 
18390 
18400 
18410 
18420 
1 8430 
18440 
18450 
18460 
18470 
1 8480 
18490 
18500 

18510 
1 8520 
18530 

18540 


GOTO  18050 
L $ [ 3 , 3 ] = "0  " 

L $ [ 3 , 3 ]=VAL$ (VAL(L$ [ 3 , 3 ] ) + l ) 

GOTO  18070 

IF  VAL(L$ [ 3 , 3 ] ) >0  THEN  L$[3,3]="5" 

IF  VAL ( L $ [ 3 , 3 ] ) =0  THEN  L$[3,3]  = "0" 

L = V AL ( L $ ) 

N$=VAL$(INT(Tne ) ) 

IF  Tne- 1 0000<0  THEN  GOTO  18190 
IF  VAL(N$ [ 5 , 5 ] )>=5  THEN  GOTO  18130 
N $ [ 5 , 5 ] = "0  " 

GOTO  18150 
N $ [ 5 , 5 ] 3 "0  " 

N$ [4 ,4 ]=VAL$ (VAL(N$ [4 , 4 ] ) + l ) 

Ne=VAL(N$) 

IF  VAL (N$[4,4])>=5  THEN  GOTO  18190 
N $ [ 4 , 4 ] = "0  " 

GOTO  18210 
N$  [ 4 , 4 ] = "0" 

N$[3,3]=VAL$(VAL(N$[3,3])+1) 

Ne=VAL(N$) 

F = F(Set  , 1 )/1000 
F = F ( S e t , 1 )/1000 

PRINT  USING  1 8250;F , K,Ne ,L, Z( 1 , 13 ) ,Z( 1 , 14 ) ,Z( 1 , 1 5 ) 

IMAGE  MD.2I),7X,M5D,4X,M5D,4X,M3D,5X,M2D,8X,M2D.2D,3X,M2D.2D 
PRINT 

PRINT  T AB ( 6 ) , A$ 

PRINT  USING  18290 

IMAGE  "GAMMA  OF  D.U.T.--  REAL  IMAGINARY" 

PRINT  " " 

PRINT  USING  18320;Z(Set  ,61  ) , Z ( Se  t ,62) 

IMAGE  16X,M . DDDD, 5X ,M. DDDD 

PRINT 

FIXED  2 

PRINT 

PRINT  F ( 1 , 1 ) ; Z ( 1 , 3 5 ) ; Z ( 1 , 34  ) ; Z ( 1 , 3 6 ) ; Z ( 1 , 1 3 ) ; Z ( 1 , 1 4 ) ; Z ( 1 , 1 5 ) 
PAUSE 

! PRINT  PAGE 
F = Z( 1 , 37  ) 

PRINT  USING  1 84  2 0 ; F 

IMAGE  25X , "FREQUENCY  = " , M4 D . , "MHZ " 

If  = 30 

PRINT  TAB(26),"I.  F.  FREQUENCY3  30  MHZ" 

! PRINT  T A B ( 2 6 ) , "I.  F.  FREQUENCY3  5 MHZ" 

PRINT 
PRINT 
K = S e t 

PRINT  USING  18500; Z(K, 35  ) ,Z (K , 36  ) ,Z(K, 1 3 ) 

IMAGE  10X, "NOISE  TEMPERATURE  3 " , M 5 D . 2 D , " K +-",M3D.2D, 

"K(BIAS)  +-" ,M3D . 2D , "K  (3*SEM)" 

IF  Z(K, 52)<220  THEN  18540 

PRINT  USING  18530;Z(K, 14)  ,Z(K, 15) 

IMAGE  10X, "EXCESS  NOISE  RATIO3"  ,M3D . 2D  ,"DB  +-",MD.2D  , 

"DB( BIAS+3*SEM) " 

PRINT  USING  18550;Z(K, 16) 
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18550  IMAGE 
18560  PRINT 
18570  IMAGE 
18580  FIXED 
18590  PRINT 
18600  PRINT 
18610  PRINT 
18620  PRINT 
18630  PRINT 
18640  PRINT 
18650  PRINT 
18660  PRINT 
18670  PRINT 
18680  PRINT 
18690  IMAGE 
18700  PRINT 
18710  IMAGE 
18720  PRINT 
18730  IMAGE 
18740  PRINT 
18750  IMAGE 
18760  PRINT 
18770  IMAGE 
18780  PRINT 


10X , "RADIOMETER  SYSTEM  TEMPERATURE  =",4D,"K" 

USING  18570 ;Z(K, 18) 

10X, "RADIOMETER  GAIN  =",M3D.1D  ,"DB" 

2 

" RADIOMETER  NOISE  BANDWIDTH-" ; Z ( K , 56 ); "MHZ" 


TAB ( 28  ),  "ERROR  SUMMARY" 

TAB( 5 ),  "SOURCE  OF  ERROR" ; TAB( 35  ), " SOURCE" ; TAB ( 58 ), "%  ERROR  IN" 
TAB ( 3 4 ) ."UNCERTAINTY" ;TAB( 55)  , "NOISE  TEMPERATURE" 

USING  1 8690 ; Z ( 1 , 20  ) 

6X , "CRYOGENIC  S T AN D ARD " , 1 OX , " . 7 7 K" , 1 6 X , M4 D . 3 D 
USING  18710;  Z (1,22) 

6X,  "AMBIENT  STANDARD" , 1 2X , "0 . 50K" , 1 5X , M4D.3D 
USING  18730; Z (1,24) 

6 X, "POWER  RATIO" , 1 7X , "0 . 0 1 DB" , 1 4X , M4D . 3D 
USING  1 8 7 5 0 ; Z ( 1,26) 

6X, "MISMATCH" , 2 OX , "0 . 005+0 . 005 J " , 12X,M  .3D 

USING  1 8770; Z ( 1 , 28  ) 

6X, "NON-LINEARITY"  , 14X,  " 1.42E-8",13X,M4D.3D 
USING  1 8790  ; Z ( 1 , 29  ) 


18920  PRINT 
18930  PRINT 
18940  PRINT 
18950  PRINT 
18960  PRINT 
18970  PRINT 
18980  PRINT 
18990  PRINT 
19000  PRINT 
19010  PRINT 
19020  PRINT 
19030  PRINT 
19040  PRINT 
19050  PAUSE 
1 9 060  Z 6 = 1 


T A B ( 6 ) , "CUSTOMER  ' S STATION TAB ( 30  ) ,C$ [ 30 , 60  ] 
TAB( 6 ) , " CUSTOMER'S  ADDRESS:" ;TAB(30),C$[  61, 99] 

T A B ( 6 ) , "SOURCE  MANUFACTURER :";TAB(30),G$[1,39] 
TAB( 6 ), "SOURCE  TYPE : " ; T AB ( 30 ) , G$ [ 40 , 79  ] 

TAB( 6 ),  "SOURCE  MODEL : " ; TAB ( 30  ) , G$ [ 80 , 8 9 ] 

TAB( 6 ) , " SOURCE  SERIAL:";TAB(30),G$[90,99] 

T AB ( 6 ) , " DATE  OF  C AL I BR AT I ON : " ; T A B ( 3 0 ) , R $ [ 1 , 1 9 ] 
TAB( 6 ), "CALIBRATION  TEST  # : " ; TAB ( 30 ) , R$ [ 20 , 39 ] 
TAB ( 6 ) , "RE  Q OR  REF  # : " ; TAB ( 30 ) , R$ [ 40 , 69 ] 

"PAUSE  19172" 


19070  MASS  STORAGE  IS  ":F8,1" 

19080  PRINT  PAGE 

1 9090  CALL  Descr(P$,C$,G$,R$,H$,Fl  , F 2 , F 3 , N 3 , N8 , Q ( * ) ,Set) 
19100  SUBEXIT 
19110  SUBEND 

19120  RE-SAVE  " Fre q " , 1 9 1 20 , 1 9600  ! 1 5 JANUARY  1 982  0840 


S Re  p o r t ( 


A $ 

1 7030 

17  12  0 

1 7 2 20 

1 7400 

17460  17590  17730  18270 

c$ 

1 6 9 9 0 

18910 

1 8 9 2 0 

1 8 9 3 0 

1 9090 

F 

1 8 2 2 0 

1 8 2 3 0 

1 8240 

1 8400 

184  10 
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F ( 

* 

1 7 3 50 

1 7 370 

1 8220 

1 8230 

18360 

FI 

1 6990 

1 9090 

F 2 

1 6990 

1 9090 

F 3 

1 6990 

1 9090 

G$ 

1 6990 

1 89  50 

1 8960 

1 8970 

1 8980 

1 9090 

H $ 

1 6990 

1 7240 

1 7250 

1 9090 

I 

1 7 260 

1 7280 

1 7 320 

1 7340 

If 

1 8430 

K 

1 7 360 

1 7 370 

1 7430 

1 7430 

1 7430 

1 7440 

1 7440 

1 7440 

1 7 500 

1 7 500 

17610 

17710 

17910 

1 7980 

1 8240 

18480 

1 8490 
18590 

1 8490 

1 8490 

18510 

1 8520 

1 8520 

1 8540 

1 8560 

K$ 

1 7840 

1 7860 

1 7870 

1 7890 

1 7900 

1 7900 

17910 

1 7930 

L 

1 8070 

1 8240 

L$ 

1 7990 

1 8000 

18020 

1 8030 

1 8030 

1 8050 

1 8050 

18050 

Mg  a 

1 7 500 

1 7 780 

1 7 790 

N 

1 7 620 

N $ 

1 8080 

18  100 

18110 

18130 

18140 

18140 

18150 

18160 

18170 

18190 

18200 

1 8200 

182  10 

N 3 

1 6990 

1 9090 

N 8 

1 6990 

1 9090 

N 9 

17610 

1 7 620 

1 76  50 

1 7650 

1 7650 

N e 

18150 

182  10 

1 8240 

P$ 

1 6990 

17  190 

1 7 200 

1 7200 

1 7200 

1 9090 

Q 

1 7 760 

Q ( 

1 6990 

1 9090 

R $ 

1 6 9 9 0 

1 9000 

190  10 

1 9020 

1 9090 

s 1 

1 7670 

17710 

S 2 

1 7680 

17710 
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S3  17690  17710 


Set 

16  9 9 0 

1 7040 

17  150 

1 7 3 50 

1 7 360 

1 7 530 

1 7 550 

1 7 7 70 

1 7 7 80 

1 7 7 8 0 

1 7 7 90 

1 8220 

1 82  30 

183  10 

18310 

1 8480 

1 9090 

Tna 

1 7 7 7 0 

1 7 790 

1 7840 

1 78  50 

Tn  e 

1 7 7 90 

1 8080 

1 8090 

z( 

* 

1 7 3 50 

1 7 4 30 

1 7 4 30 

1 7430 

1 7440 

1 7440 

1 7440 

1 7500 

1 7 500 

1 7 500 

1 7 5 30 

1 7 5 5 0 

1 7 57  0 

1 7 580 

17610 

1 7 6 50 

1 7 6 50 

1 7 6 50 

177  10 

1 7 7 7 0 

1 7 780 

1 7 780 

1 7 790 

1 7 9 9 0 

1 8240 

1 8240 

1 8240 

18310 

183  10 

1 8360 

1 8360 

1 8360 

1 8360 

1 8360 

1 8360 

1 8400 

1 8490 

1 8490 

1 8490 

18510 

1 8 520 

1 8 5 2 0 

1 8540 

1 8560 

1 8590 

1 8680 

1 8700 

1 8720 

1 8 7 4 0 

1 8760 

1 8780 

1 8800 

1 8830 

1 8850 

1 8850 

1 8880 

Z 6 1 9 0 6 0 
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1913  0 
19  14  0 
19  15  0 
19  16  0 
19  170 
19  180 
19  190 
1 9200 
19  2 10 
1 9220 
1 9 2 30 
1 9 2 4 0 
1 9 2 5 0 
1 9 2 6 0 
1 9 2 7 0 
1 9280 
1 9290 
1 9 300 
19  310 
1 9320 
1 9330 
1 9 3 4 0 
1 9350 
1 9360 
1 9 3 7 0 
1 9380 
1 9 3 9 0 
1 9400 
19410 
1 9420 
1 9430 
1 9440 
1 9450 
19460 
1 9470 
19480 
1 9490 
19500 
19  5 10 
1 9520 
19530 
1 9540 
1 9550 

1 9560 
1 9570 
1 9580 
1 9590 
19600 
196  10 


SUB  F r e q ( F , F $ , H $ , P 0 $ , M , C c c ) 

OPTION!  BASE  1 

OO’l  F ( * ) , Z(  * ) , T1  , T2  , T3  , Qr  ( * ) ,Qi  ( * ) , Final  ( * ) 

COM  File,Flna 

DIM  FOS  [ 5 0 ] , S0$  [ 5 0 ] 

PRINTER  IS  16 
F 1 = Z ( 1 ,37) 

F2=Z( 1 , 38  ) 

F 3 = Z (1,39) 

! IF  C c c.  < 3 THEN  GOTO  15010 
IF  F n = 0 THEN  Fn=l 

i 

! SET  START  FREQ 

1 

IF  M > 1 THEN  1 9 380 
H=F2-10000 
IF  H > 0 THEN  H = 1 
IF  H < 0 THEN  H = 0 

H$="H"&VAL$  (H  ) ! S ET  10  GHZ  BIT 

! P 0 $ = "N  OM 2 L 7 K4 " ! POWER  OUT  OF  2MW  FROM  SYNTH 

F 4 = F 1 * 1 000000 

IF  F4<1000000000  THEN  GOTO  19370 

S0$  = "00"&H$&VAL$ ( F 4 )&P0$  ! SET  START  FREQ  +POWER  STRING 

GOTO  19380 

S 0 $ = " 0 0 " & 11  $ & " 0 " & V AL  $ (F4  ) & P 0 $ 

ON  M GOTO  19390, 19440 

F =0  ! SET  F TO  0 1ST  TIME  THROUGH  USE  2-n  TIMES  WITHOUT  RESET 

OUTPUT  704 ; "0 0 HOGOF OE OD OC 0 BO AON OM 2 L 7 K4 " 

OUTPUT  7 0 4 ; S 0 $ 

WAIT  1000 
SUBEXIT 
PRINT  F 

t 

! FREQ  LOOP 

i 

F 0 =F 

IF  F<1000000000  THEN  GOTO  19520 
F0$="00"&H$&VAL$(F) 

GOTO  19550 

F0$  = "00"&H$&"0"&VAL$ (F  ) 

GOTO  19550 
PRINT  FO 

F$="00"&H$&"G"&F0$[5,5]&"F" &F0$[6,6]&"E"&F0$[7,7]&"D"&F0$[8,8] 
&,,C"&FO$  [ 9 , 9 ] &"B"&FO$  [ 10, 10  ] &"A"&FO$  [ 1 1 , 1 1 ] 1100  MHZ  OR  MORE 

PRINT  F $ 

OUTPUT  7 0 4 ; F $ 

WAIT  1000 

SUBEXIT 

SUBEND 

RE-SAVE  "SUB  G"  , 1 96 1 0 , 20550 ! JANUARY  1 5 , 1 982  0840 


S Freq  ( 
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Cc  c 

19  13  0 

F 

19  13  0 

1 9 3 9 0 

1 9 4 4 0 

1 9480 

1 9 4 9 0 

1 9 5 0 0 

1 9 5 2 0 

F $ 

19130 

1 9 5 50 

1 9 5 6 0 

1 9 5 7 0 

FO 

1 9480 

1 9540 

F 0 $ 

19170 
1 9 5 50 

1 9 500 
1 9550 

1 9 5 2 0 

1 9 550 

1 9 5 5 0 

1 9 5 50 

19550  19550 

F 1 

19190 

1 9 3 3 0 

F 2 

1 9200 

1 9 2 8 0 

F 3 

192  10 

F 4 

1 9 330 

1 9 3 4 0 

1 9 3 50 

1 9 3 70 

Fn 

1 9230 

1 92  30 

H 

1 9280 

1 9290 

1 9290 

1 9300 

1 9 3 0 0 

19310 

H $ 

19130 

19310 

1 9 350 

1 9370 

1 9 5 00 

1 9520 

1 9550 

M 

19  130 

1 9 2 70 

1 9380 

P0$ 

19  130 

1 9350 

1 9 3 7 0 

S0$ 

19  170 

1 9350 

1 9370 

194  10 

z( 

* 

19  190 

1 9200 

192  10 
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19620  SUB  Get_parameters(C$,G$,R$,Fl , F 2 , F 3 , F n , N 3 , N 8 ) ! 
19630  OPTION  BASE  1! 

19640  COM  F(* ) ,Z(* ) ,T1 , T2 , T3 , Qr (* ) ,Qi ( * ) , Final  ( *) 

1 9650  COM  File, Flag 
19660  DIM  P$ [ 100 ] ,Q$ [ 100  ] 

19670  PRINT 
19680  PRINT 
19690  PRINTER  IS  16 

19700  LINPUT  "0  TO  SKIP  , SPACE  TO  CONTINUE", Q$ 

19710  IF  Q $= "0 " THEN  20360 
1 9720  IF  Q $= " " THEN  19730 
19730  PRINT  "CUSTOMER?" 

19740  P$=C$ [1,29] 

19750  IF  12=0  THEN  19820 
19760  PRINT  "NOW:  ";P$; 

19770  LINPUT  Q$ 

19780  IF  Q $ = "0 " THEN  20320 
1 9790  IF  Q $ = " " THEN  1 9870 
19800  C$[ 1 , 2 9 ] =Q  $ 

19810  GOTO  19880 
19820  PRINT  "NOW:  ";P$ 

19830  LINPUT  Q$ 

19840  IF  Q $ = "0 " THEN  20  320 
1 9850  IF  Q $= " " THEN  1 9870 
1 9860  C$ [ 1 , 29 ]=Q$ 

19870  ! Q-FNS(l) 

19880  PRINT  "CUST'S  ADDRESS — STREET  ?" 

19890  P $ = C $ [30,60  ] 

19900  Q=FNO(P$,Q$) 

19910  C$[30,60]=P$ 

19920  Q=FNS(1 ) 

19930  PRINT  "CUST'S  ADDRESS? — CITY , STATE , ZIP  ?"; 

19940  P$  = C$ [61 ,99  ] 

1 9950  Q = FN  0 ( P $ , Q $ ) 

19960  C$ [61  , 99  ]=P$ 

19970  Q = FN S ( 1 ) 

19980  PRINT  "SOURCE  MANUFTR? " ; 

19990  P $ = G $ [ 1 , 3 9 ] 

20000  Q = FN  0 ( P $ , Q $ ) 

20010  G $ [ 1 , 39  ]=P$ 

20020  Q=FNS( 1 ) 

20030  PRINT  "SOURCE  TYPE  ? 

20040  P$=G$[40,79] 

20050  Q = FN 0 ( P $ ,Q$ ) 

20060  G$ [ 40 , 79 ] =P$ 

20070  Q = FN  S ( 1 ) 

20080  PRINT  "SOURCE  MODL  //  ?"; 

20090  P$=G$[80,89] 

20100  Q = FNO ( P $ , Q $ ) 

20110  G$ [ 80 , 89 ]=P$ 

20120  Q-FNS(l) 

20130  PRINT  "SOURCE  SER.  //  ?"; 

20140  P$=G$ [90,99 ] 

201  50  Q = FNO ( P $ , Q $ ) 
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20160  G$[90,99 ]=P$ 

20170  Q-FNS(l) 

20180  PRINT  "DATE  OF  CALIBRATION" 

20  190  P $ = R $ [ 1,19] 

20200  Q = FN0 ( P $ , Q $ ) 

202  1 0 R$ [ 1 , 19  ]=P$ 

20220  Q = FN  S ( 1 ) 

20230  PRINT  "CALI B . TEST  # ?"; 

20240  P$=R$[20,39] 

20250  Q=FN0(P$,Q$) 

20260  R$[20,39]=P$ 

202  70  Q = FN S ( 1 ) 

20280  PRINT  "REO  OR  REF  # ? 

20290  P$=R$ [40,69] 

20300  Q = FN0 ( P $ , Q $ ) 

203  10  R $ [ 4 0 , 6 9 ] = P$ 

20320  12=12+1 

20330  IF  12=1  THEN  19670 

20340  Z1=Z1+1 

20350  Q = FN  S ( 2 )+FNB ( 1 ) 

20360  ! GET  PARAMETERS  (FNJ2) 

20370  Q = FN  S ( 2 ) 

20380  INPUT  "START,  STOP,  AND  STEP  FREQ  IN  MHZ " , F 1 , F 2 , F 3 

20390  Fn= ( F2-F 1 ) /F3+1 

20400  F 0 = 1 

20410  FOR  1=1  TO  Fn 

20420  Q = FNS(1  ) 

20430  N 3 = 5 
20440  N 8 = 1 0 
20450  Z(I ,37 )=F1 
20460  Z(I,38)=F2 
20470  Z(I,39)=F3 
20480  Z(I,25)=N3 
20490  Z(I,40)=N8 
20500  Z(I  ,31 )=N3*N8*2 

205  10  Z ( 1 , 5 5 ) = 3 . 6 ! BANDWIDTH  5MHzIF 

20520  Z ( 1 ,56)=. 95  IBANDWIDTH  30MHz  IF 

20530  Z(  1 , 27  )=  1 . 418426E-8 
20540  NEXT  I 
20550  SUBEND 


20560 

! SAVE  "SUB  M", 

16560, 

19080  ! 1 5 

JANUARY  1983 

08  55 

S Get 

parameters ( 

C$ 

1 9620 

1 9 7 4 0 

1 9800 

19860  19890 

19910 

1 9960 

FO 

20400 

FI 

1 9620 

20380 

20390 

20450 

F 2 

1 9 6 2 0 

2 0 3 8 0 

20390 

2 0 4 6 0 

F 3 

1 9620 

2 0 3 8 0 

20390 

204  70 

1 9 9 4 0 


2 26 


RAD7EF 


Fn 

19620 

20390 

20410 

G$ 

1 9620 
20160 

1 9990 

200  10 

20040 

20060 

20090 

20110 

20140 

I 

204  10 

20450 

20460 

20470 

20480 

20490 

20500 

20540 

I 2 

1 9 7 50 

2 0 3 2 0 

20320 

20330 

N 3 

1 9620 

20430 

20480 

20500 

N 8 

1 9620 

20440 

20490 

20500 

P$ 

1 9660 

1 9740 

1 9760 

1 9820 

1 9890 

1 9900 

19910 

1 9940 

1 9950 

1 9960 

1 9990 

20000 

20010 

20040 

20050 

20060 

20090 

20  100 

20  110 

20140 

20150 

20160 

20190 

20200 

202  1 0 

20240 

20250 

20260 

20290 

20300 

203  10 

Q 

19900 

1 9920 

1 9950 

1 9970 

20000 

20020 

20050 

20070 

20100 

20120 

20  150 

20170 

20200 

20220 

202  50 

20270 

20300 

20350 

20370 

20420 

Q$ 

1 9660 

1 9700 

19710 

1 9720 

1 9 770 

1 9780 

1 9790 

1 9800 

1 9830 

19840 

1 9850 

19860 

1 9900 

19950 

20000 

20050 

20100 

20150 

20200 

202  50 

20300 

R$ 

1 9620 

20190 

202  10 

20240 

20260 

20290 

20310 

Z( 

* 

204  50 

20460 

20470 

20480 

20490 

20500 

205  10 

20520 

20530 

Z 1 20340  20340 
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20  570  SIJB  Me  a s ( C 1 , P 0 , E 7 , E 8 , Q ( * ) , I , Ae  t ) 

20580  OPTION  BASE  1 

20590  COM  F (*),  Z (*), T 1 , T2 , T3 , Qr (*), Qi (*) .Final (* ) 

20600  COM  File, Flat* 

20610  DIM  A $ [ 10  0 ] 

206  20  FI  =7.(1,  87) 

20680  F 2 =7 (1,38) 

20640  F 3 =7 (l, 39) 

20650  N 8 = Z (1,25) 

20660  N 8 = 7 ( 1,40) 

20670  PRINTER  IS  0, 

20680  PRINT  '•  ************************************************************’? 

20690  PRINT 
20700  OUTPUT  9;"R" 

20710  ENTER  9 ; P $ 

207  20  PRINT  TAB ( 2 0 ) , "DATE : " ; P $ [ 1 , 2 ] ; ; P $ [ 4 , 5 ] ; 1 98 2 " ; " TIME : " ; P $ [ 7 , 1 4 ] 
20730  PRINT 

20740  PRINTER  IS  16 

207  50  IF  E 7 > 0 THEN  GOTO  207  90  ! NOMINAL  VALUE  OF  TX  USED  IN  MAX  DEVIATION 

ROUTINE 

20760  E 8 = 6 00  !MAX  DEVIATION  ALLOWED  IN  DEV  ROUTINE 

20770  E 7 = 9 6 0 0 

20780  PRINT  "DEFAULT  VALUE  OF  E7  BEING  USED  )" 

20790  79=T7=T8=T9=P7=P8=P9=0 
20  800  W 4 = W 5 = W 6 = 0 

20810  INPUT  "TEMPERATURE  OF  AMBIENT  STANDARD  IN  DEGREES  CELCIUS",T2 

20820  T 2 =T  2 + 2 7 3 . 15 

20830  Qua=.0479932*F( 1 , 1 )/T2 

20840  Quaa=Qua/ (EXP(Qua)-l )*T2 

20850  C = 0 

20860  T = 5 5 

20870  Bl=8 . 394409444E3 
20880  B 2 =-  1 . 89004  52  59E3 
20890  B3=-7. 282229165 
20900  B4  = l . 022850966E-2 
20910  B5=5 . 556063825E-4 
20920  R6=-5 . 944544662E-6 
20930  B7=2 . 7 1 5433932E-8 
20940  B8=-4 . 879535904E-1 1 
209  5 0 B9=5 .095360824E2 

20960  INPUT  "PRESSURE  IN  MM  OF  HG", Pressure 

20970  T 0 = 5 5 

20980  FOR  N = 1 TO  30 

20990  P = EXP ( B 1 /T  + B2  + B 3*T  + 34* ( 1 26 . 2-T ) ~ 1 . 9 5 + B 5*T~  3 + B6*T~4  + B 7 * 
T~5+B8*T~6+B9*LOG(T)) 

2 1 000  P = 7 6 0 *P 
21010  P=P-Pressure 

21020  TO =T0+(85-T0 )* A3 S(P)/(ABS(P)+1718. 05458298) 

2 1 030  T = T 0 
21040  NEXT  N 

21050  T3=INT( 100*(T0+.005 ) ) /100  1CRYO  STD  TEMP 

21060  Qua=.0479932*F( 1 , 1 )/T3 

21070  Quas=Qua/ (EXP (Qua )-l ) 

2 1080  F =F ( 1,1) 
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21090 
21100 
21110 
21120 
21130 
2 1140 
21150 
21160 
2 1170 
21180 
21190 
21200 
21210 
21220 
21230 
21240 
21250 
21260 
21270 
21280 
21290 
21300 
21310 
21320 
21330 
21340 
21350 
21360 
2 1370 
21380 
21390 
21400 
21410 
21420 
21430 
21440 
21450 
21460 
21470 
21480 
21490 
21500 
21510 
21520 
21530 
21540 
21550 
21560 
21570 
21580 
21590 
21600 
21610 
21620 
21630 


T a = 30  0 

Tdl=2.64E-3*SQR(F)*F(2,ll)~2*(Ta-T3) 

Td2=. 611-2. 55E-3*(T3-76)+3.82E-3*(Ta-297) 
Td3=(.6*SQR(F)+.011*F)/.611 
Tdelta=Tdl +Td  2 *Td  3 
Tn  = Quas*(T 3+T  delta) 

T3=Tn 

PRINT  "NITROGEN  TEMP  I S " ; T 3 ; "KEL VIN " 

PRINT 

PRINT  T 2 , T 3 

LINPUT  "ENTER  4 FOR  30MHzIF,0  FOR  5MHz  IF",Iff$ 

M = 1 ! SET  VALUE  FOR  Freq  SUBROUTINE 

Fn- ( Z ( 1 , 38 )-Z ( 1 ,37 ))/Z(l , 39 )+l 
PRINT  Fn 

LINPUT  "ENTER  CORR  FILE  ,C0RR+#",Fr$ 

MASS  STORAGE  IS  ":F8,1" 

! OTO  21390 
ASSIGN  #1  TO  F r $ 

READ  #l;Aeta,YlatYlb,Ylc,Yld,Pal,Pa2,Pcl,Pc2,Pc3,Pc4 
ASSIGN  #1  TO  * 

LINPUT  "ENTER  CAL  FILE  Cal  + //",Fr$ 

ASSIGN  #1  TO  F r $ 

READ  #1;F(*)  .Final 
Mismatch=Final 
PO  $ = "N  0M2L  5K  5 " 

F 1 =Z ( 1 , 37  ) 

F =F  1 

CALL  Freq(F,F$,H$,PO$,M,Ccc) 

OUTPUT  704 ;"00H0"&" 2600000000 "&P0$ 

; 

M = 2 

X8=V  2 =T 1 =T8  = T9  = T7  = P7  = P8  = P9  = P4  = P5  = P6=W4=W5=W6=W1=W2=W3  = Z = 0 

FOR  J 8= 1 TO  N8+1 

T 1 =T4=V2  =P4=P  5 = P6=W 1 =W2=W3  = 0 

PRINTER  IS  0 

FOR  Z 2 = 1 TO  N 3 

CALL  Power (Pi  ,P2,P3,P0,Aet  , I f f ) ! CALL  POWER  SUBROUTINE 

IF  J 8= 1 THEN  GOTO  21560 
Z = Z+1 

IF  POM  THEN  GOTO  21530 

Q ( 1 ,Z)  = P1 

Q ( 2 ,Z)  = P2 

Q(3,Z)=P3 

GOTO  21560 

Q ( 1 , Z+N  3 *N  8 ) = P 1 

Q (2 , Z+N  3*N8 ) = P2 

Q ( 3 , Z+N  3*N  8 ) = P 3 

Y 1 =P 1 /P2 

Y3=P3/P2 

T 2 -Quaa 

X8=T2+Mismatch*( ( T 3-T 2 ) * ( Y 1 - 1 ) / ( Y 3 - 1 )*Aeta)  ’TEMPERATURE  Tl  IS  X8 
PRINTER  IS  0 

PRINT  X8;P1*1000;P2*1000;P3*1000 
IF  J 8= 1 THEN  21730 
E 6 = X8-9  600 
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21640  IF  AB  S(E6  )<  = 600  THEN  21730 
21630  DISP  "DEV  EXCEEDS  MAX — REDO  LAST  TEMP" 

21660  PRINTER  IS  16 
21  670  PRINT  E 6 , E 7 ,E8 
21680  PRINT  X8,E7 
21690  Z=Z-1 
21700  ! PAUSE 

21710  PRINTER  IS  0 
21720  GOTO  21450 
21730  T 1 =T 1 +X8 

2 1 740  T4=T4+(T3-Y3*T2)/(Y3-1  ) 

21750  DISP  "T4",T4 
2 1 760  V 2 = V 2+X8*X8 
2 1 770  P4  =P  4+P 1 
2 1 780  P 5 = P 5+P  2 
2 1 790  P6=P  6+P  3 
21800  W1=W1+P1*P1 
21810  W2=W2+P2*P2 
21820  W3=W3+P3*P3 
21830  NEXT  Z2 
2 1840  T 4 =T 4 /N  3 

21850  S=SQR((V2-T1*T1/N3)/(N3-1 )) 

2 1860  T 1 =T 1 /N  3 
2 1 870  ! 

21880  ! PLOT  AVERAGE  OF  5 MEASUREMENTS 

21890  ! 

21900  PRINTER  IS  0 
21910  IF  J 8 > 1 THEN  22230 
2 1 920  I 6 = T 1 
2 1 930  Q 5 = 1 00 
21  940  I 5 = Q 5 / 2 5 
21950  IMAGE  5X,"TX(K)  =",M7D.  ,"SIG(K)  =",M5D. 

21960  IMAGE  /,/,/,/ 

2 1 970  D9=  1 

21  980  Q = FN  S ( 2 ) 

2 1 990  F = 3 2 5 0 ! Z(l,37)-30 

22000  PRINT  F ; "MHZ" , "I .F . FREQUENCY  MHZ:  30", "LO  FREQ  MHZ: 

22010  PRINT  USING  21960 

22020  IMAGE  1 7 X , " //  OF  PTS  IN  AVE  =",M3D 
22030  IMAGE  7X,"UNIT  =",M9D.D,"  KELVINS",/ 

22040  PRINT  USING  22020;N3 
22050  PRINT  USING  22030;I5 
22060  PRINT 

22070  IF  Q 5 >= 1 0 THEN  22120 

22080  PRINT  USING  2 2 1 1 0 ; -Q 5 , - 3 *Q 5 / 5 , -Q 5 / 5 , Q 5 / 5 , 3 *Q 5 / 5 , Q 5 
22090  GOTO  22130 

22100  IMAGE  4X,M5D  ,4X,M5D  ,4X,M5D  ,4X,M5D  ,4X,M5D  ,4X,M5D 
22110  IMAGE  5X.M1DE ,4X,M1DE ,4X,M1DE ,4X,M1DE ,4X,M1DE ,4X,M1DE 

22  1 20  PRINT  USING  2 2 1 00 ; -Q 5 , - 3 *Q 5 / 5 , -Q 5 / 5 , Q 5 / 5 , 3 *Q 5 / 5 , Q 5 

22  1 30  A $ = "!....  ! !....! ! ! !....! 

22140  PRINT  TAB(8),A$ 

22150  IMAGE  "# /TIME " , 2 IX , " ZERO-" , M5D  ,"  KEL V IN S " , 1 6 X , " TX ( K ) 
22  1 60  IF  ( T 1 >=  1 00  ) AND  (TK-1E5)  THEN  22200 
22170  PRINT  USING  22180;I6 

22  180  IMAGE"// /TIME"  , 2 IX,  "ZERO  = " , MD  . 2DE  , " KELVIN"  , 1 5X,  "TX(K) 


! SUM  OF  Tx 
! SUM  OF  Te 

! SUM  Tx  ~ 2 
! SUM  PI 
! SUM  P2 
! SUM  P 3 
! SUM  PI  “2 
! SUM  P 2 ~ 2 
! SUM  P 3 ~ 2 

! AVE  Te 
! S . D . OF  Tx 
! AVE  Tx  SET  OF 


5 


3220" 


,"  KELVINS" 

,"  KELVINS" 

. ! " 

" ,3X," SIG(K)" 
" , 3X, "SIG(K)" 


230 


RAD7EF 


22190 

22200 

22210 

22220 

22230 

22240 

22250 

22260 

222  70 
22280 
22290 
22300 

223  10 
22320 
22330 
22340 
22350 
22360 
22370 
22380 
22390 
22400 
22410 
22420 
22430 
22440 
22450 
22460 
22470 
22480 
22490 
22500 
22510 
22520 
22530 
22540 
22550 
22560 
22570 
22580 
22590 
22600 
226  10 
22620 
22630 
22640 

2650 
22660 
22670 
22680 
22690 
22700 
227  10 
22720 
22730 


GOTO  22220 
PRINTER  IS  0 
PRINT  USING  2 2 1 5 0 ; I 6 
GOTO  22560 
I 6 = T 1 

IMAGE  M 3D  ,4X 
PRINTER  IS  0 
PRINT  USING  22240; J 8-1 
X3=INT  ( (A Tl- 1 6 )/l  5 ) + 2 5 
X4=INT(S/I5) 

IF  X3  >0  THEN  22  320 

PRINT  "< " ; T AB ( 5 1 ) , 

GOTO  22480 
IF  X3  <50  THEN  22  350 

PRINT  T AB ( 4 7 ) >"; 

GOTO  22480 
X 3 = X 3 

IF  ( X3-X4  >0 ) AND  (X3+X4<50)  THEN  22380 
GOTO  22400 

PRINT  TAB(X3-X4 TAB(X3 ) , "+" ; TAB(X3+X4 TAB ( 5 1 ) , 

GOTO  22480 

IF  (X3-X4>0)  AND  (X3<50)  THEN  22420 
GOTO  22440 

PRINT  TAB(X3-X4 TAB(X3 TAB( 51 ) , 

GOTO  22480 

IF  ( X 3 >0 ) AND  ( X3  + X4  <50  ) THEN  22470 
PRINT  TAB(X3 ) , "X" ; TAB( 5 1 ) , 

GOTO  22480 

PRINT  TAB(X3 ) , " + " ; T AB ( X 3 + X4 TAB ( 5 1 ) , 

IF  (Tl>=100)  AND  (T1<=1E5)  THEN  22520 
IMAGE  2X.M1D.2DE ,2X,M1D.2DE 
PRINT  USING  22490;T1,S 
GOTO  29748 

PRINT  USING  22530;T1,S 
IMAGE  2X,M5D  ,2X,M5D 

! IF  ( J8-1 )/20-INT( ( J8-1 )/20)>0  THEN  20359 
GOTO  22590 
PRINT  TAB ( 8 ) , A$ 

IF  J 8 > 1 THEN  22  590 
GOTO  22690 
T 1 =T  1 *N  3 
T8=T8+T 1 
T9  = T 9+T4 
T 7 =T  7 + V2 
P 7 = P 7 + P 4 
P 8 = P 8+P  5 
P9=P9+P6 
W 4 =W4+W 1 
W 5=W 5+W  2 
W 6 =W  6+W  3 
NEXT  J 8 
T 1 =T  8 / ( N 8 *N  3 ) 

T4=T9/N8 

S1=SQR((T7-T8*T8/(N8*N3))/(N8*N3-1 ))  !S.D  Tx  1 FULL  SET 

IF  PO  = 1 THEN  22  880 


! SUM  OF  Tl 
! SUM  OF  T4 
! SUM  OF  T1'2 
! SUM  OF  PI 
! SUM  OF  P 2 
! SUM  OF  P 3 
! SUM  OF  PI  ~2 
! S U M OF  P2~2 
! S UM  OF  P 3 ~ 2 

! A VE  VALUE  TX  1 FULL  SET 
! A V E VALUE  Te  1 FULL  SET 


23  1 


RAD7EF 


22740  ! 

22750  ! STORE  VALUES  IN  Z MATRIX 

22760  ! 


22  7 70  Z(I  ,7  ) = T2 
22780  Z(I  , 8 ) = T 3 
22790  Z ( I , 9 ) = T 1 
22800  Z(I,10)=S1 
2281  0 Z(I  , 1 1 ) =T 4 


! S E T 2 


22820  Z(I  , 12  ) = P8/(N8*N3) 
22830  B 6 = T 7 


! S UM  OF  SQRS  TX  SET  2 


22840  Z ( I ,41  ) = B 6 
2285  0 B 8 = T 8 


! SUM  OF  Tx  SET  2 


22860  Z(I,42)=B8 
22870  GOTO  23030 
22880  Z ( I , 1 ) =T 2 
22890  Z(I,2)=T3 
22900  Z ( I , 3 ) = T 1 
22910  Z(I,4)=S1 
22920  Z(I  , 5 ) =T 4 


! SET  1 


22930  Z(I  , 6 ) = P8/(N3*N8  ) 


22940  B 5 = T 7 
22950  B 7 =T  8 


! SUM  OF  SQRS  TX  SET  1 
! SUM  OF  TX  SET  1 


22960  Z(I,43)=B5 
22970  Z ( I , 4 4 ) = B 7 

22980  ! REM  B5  AND  B6=SUM  OF  SQRS-B7  AND  B8=SUM  OF  T1 

23000  ! PRINT  RESULTS  OF  FULL  SET 

23020  PRINTER  IS  0 

23030  PRINT  " TX  AVE  STD  DEV  TE" 

23040  PRINT 

23050  PRINT  USING  2 3 0 6 0 ; T 1 , S 1 , T4 
23060  IMAGE  5X , 1 OD . D , 5X , 7 D . 2 D , 5X , 7 D . 2 D 
23070  PRINT 
23080  PRINT 

23090  PRINT  "Pi  AVE  MW= " ; P 7 / ( N 3 *N 8 ) ; "P 2 AVE  MW= " ; P 8 / ( N 3 *N 8 ) ; 

"P  3 AVE  M W = " ; P 9 / ( N 3 * N 8 ) 

23100  PRINT 

23110  Se 1 =S 1 /SQR(N8*N 3 ) 

23120  PRINT  "STANDARD  ERROR  OF  MEAN=";Sel 

23  1 30  Z ( 1 , 1 3 ) = S e 1 

23140  PRINT 

23150  PRINT 

23  1 60  Z = 3 * S 1 

23170  Mismatchckl=F(l  , 1 5 ) / F ( 3 , 15) 

231  80  Mismatchck2=F(l  , 1 5 ) / F ( 4 , 15) 

23190  Mla=(l-F(3,ll)-2)*(1-F(4,9)“2) 

23200  M 2 a = ( 1 -F ( 3 , 13)*F(4,3 ) + F (3, 1 4 ) * F ( 4 , 5))~2+(F(3, 1 3 ) * F ( 4 , 5) 
+ F ( 3 , 14)*F(4,3))~2 

23210  Mlb=(l-F(4,  11  )"2)*(1-F(3,9)"2) 

23220  M 2 b = ( 1 - F ( 4 , 1 3 ) * F ( 3 , 3 ) +F ( 4 , 1 4 ) * F ( 3 , 5 ) ) ~ 2 + ( F ( 4 , 1 3 ) * F ( 3 , 5 ) 
+ F(4, 14)*F(3,3))“2 
2 32  30  M 1 f = M 1 a / M 2 a 
23240  M 2 f = M 1 b / M 2 b 
23250  Misraatchck3=F( 1 , 1 5 ) / M 1 f 
2 3 260  Mismatchck4=F(l  , 1 5 ) / M 2 f 
23270  PRINTER  IS  16 


2 32 


RAD7EF 


23280 
23290 
23300 
23  3 1 0 
23320 
23330 
23340 
23350 
23360 
23370 
23  380 
23390 
23400 

234  10 
23420 
23430 
2 3 4 4 0 
23450 
23460 
23470 
2 3 4 8 0 
23490 
23500 

235  10 
23520 
23530 
23540 
23  550 
23560 
2 3 5 7 0 
23580 
23  590 
23600 

236  10 
23620 
2 3630 
23640 
23650 
23660 
23670 
23680 
23690 
23700 

237  1 0 
23720 
237  30 
23740 
237  50 
23760 


IF  P0  = 2 THEN  23380 
Z ( 1 , 2 )=T3 
Z ( 1 , 1 ) =T  2 

Z(I,45)=P7  ! SUM  OF  PI  SET  1 

Z ( I , 46  ) = P8  ! SUM  OF  P2 

Z(I ,47 ) = P9  ! S UM  OF  P3 

Z(1 ,71 ) = P7/(N3*N8)/(P8/(N3*N8))  1RATIO  P1/P2  SET  1 
Z(I,43)=W4  ! SUM  OF  Pl~2  SET  1 

Z ( I ,49 ) =W  5 ! SUM  OF  P2~2 

Z ( I , 50 )=W6  ! S UM  OF  P3~2 

IF  P 0 = 1 THEN  235  1 0 

! 85  AND  B 6 = SUM  OF  SQRS  T 1 ; B7  AND  B8  = SUM  OF  T1 


Z( 1 , 8 ) = T3 
Z ( 1 , 7 ) = T 2 
Z(I , 73  )=P7 
Z ( I , 7 4 ) = P 8 
Z ( I , 7 5 ) = P 9 
Z ( I , 7 6 ) = W4 
Z ( I , 7 7 ) =W  5 
Z ( I , 78 )=W6 

Z(1,79)=P7/(N3*N8)/(P8/(N3*N8)) 
IF  P 0 = 1 THEN  GOTO  23  5 10 
Q = FN  B ( 1 ) 

PRINT 

Y 3 c = Z ( 1 , 7 1 ) 

Ck 1 =T  2+Mis  matchckl*( (Z( 1 , 3 ) -T  2 ) 
Ck2  =T  2+Mis  matchck2*( (Z( 1 , 3 ) - T 2 ) 
IF  P0= 1 THEN  GOTO  23590 

Y 3c  = Z ( 1 , 79  ) 

Ck3=T 2+Mis mat chck3*( ( Z( 1 , 9 )-T2 ) 
C k4  = T 2+M ismatchck4*( ( Z ( 1 , 9 ) - T 2 ) 
Z ( 1 , 66 ) = Ck  1 
Z ( 1 , 67 ) = Ck  2 
PRINTER  IS  0 
IF  PO  = 1 THEN  GOTO  23670 
Z ( 1 , 68  ) = Ck  3 
Z ( 1 ,69  ) = Ck4 

PRINT  "STANDARDS  Ck  3=";Z(1,68) 
Z ( 1 , 1 3 ) = 3 * ( Z ( 1 , 1 3 ) / 2 ) 

PRINT  "STANDARDS  Ck  1=";Z(1,66) 
PRINTER  IS  16 
Z 8 = 1 

! INPUT  "ENTER  0 TO  REPEAT  1 TO 
! IF  Z 8 = 0 THEN  6311 
M = 2 

! NEXT  Fr 
SUBEXIT 


! S UM  OF  PI  SET  2 
! SUM  OF  P 2 
! SUM  OF  P 3 
! SUM  OF  P 1 ~ 2 SET  2 
! SUM  OF  P2~2 
! SUM  OF  P 3 ~ 2 
! RATIO  P1/P2  SET  2 


(Yla-1  ) / ( Y 3 c- 1 ) ) * Ae  t a !Auxl  SET1 
(Ylc-1  )/(Y3c-l  ) ) * Ae  t a !AUX2  SET1 


(Yld-1  ) / ( Y 3c - 1 ) ) * Ae  t a !AUX1  SET2 
(Ylb-1  )/(Y3c-l ) ) * Ae  t a !AUX2  SET2 


"STANDARDS  Ck  4=";Z(1,69) 
"STANDARDS  CK  2=";Z(1,67) 


CONTINUE" , Z 8 


SUBEND 

RE-SAVE  "SUBO"  , 23760 , 25460 ! MARCH  1 5 1 983  0900 


S leas  ( 


A $ 


20610  22130  22140  22560 


233 


R A D 7 E F 


A e t 

20370 

2 1450 

Ae  t a 

2 12  7 0 

2 1 590 

2 3 5 30 

2 3540 

2 3570 

23580 

B 1 

2 0 8 7 0 

20990 

B 2 

2 0 8 8 0 

2 0 9 9 0 

B 3 

20890 

2 0 9 9 0 

34 

20900 

2 0 9 9 0 

B 5 

2 0 9 1 0 

20990 

2 2940 

22960 

B 6 

20920 

2 0 9 9 0 

2 2 8 3 0 

2 2840 

B 7 

2 0 9 3 0 

2 0 9 9 0 

2 29  50 

2 2 970 

B 8 

20940 

2 0 9 9 0 

2 2 8 50 

22860 

B 9 

209  50 

20990 

C 

208  50 

Cl 

20570 

Cc  c 

2 1 360 

Ckl 

2 3 5 3 0 

2 3590 

Ck  2 

2 3540 

2 3600 

Ck  3 

2 3570 

2 3630 

Ck4 

2 3580 

2 3640 

D 9 

2 1970 

E 6 

2 1630 

2 1640 

2 1670 

E 7 

20570 

207  50 

207  70 

2 1670 

2 1680 

E 8 

20570 

20760 

2 1670 

F 

2 1080 

2 1100 

2 1120 

2 1120 

2 1350 

2 1360 

2 1990 

<jy 

U- 

2 13  6 0 

F ( 

* 

20830 

2 1060 

2 1080 

21100 

2 13  10 

23170 

23180 

23  180 

23190 

23190 

2 3200 

2 3200 

2 3200 

23200 

2 3200 

2 3200 

2 3200 

2 32  1 0 

2 32  1 0 

2 3 2 2 0 

2 3220 

2 32  20 

2 3220 

2 32  20 

2 3220 

23220 

2 32  50 

F 1 

20620 

2 1340 

2 1350 

22000 


23170 

23200 

23220 

23260 


234 


R A D 7 F F 


F 2 

2 0 6 3 0 

F 3 

20640 

Final 

2 13  10 

2 1320 

Fn 

2 12  10 

2 1220 

F r $ 

2 12  3 0 

2 12  6 0 

2 1290 

2 13  0 0 

H $ 

2 13  6 0 

I 

2 0 5 7 0 

2 2 7 7 0 

2 2 7 80 

2 2 7 9 0 

2 2 8 0 0 

2 2 8 1 0 

2 2 8 2 0 

2 2 8 6 0 

2 2 8 8 0 

22890 

22900 

2 2 9 1 0 

22920 

2 2 9 3 0 

22970 

2 3 3 1 0 

2 3 3 2 0 

2 3 3 30 

2 3 3 5 0 

2 3360 

2 3 3 70 

2 3430 

2 3 4 4 0 

2 3450 

2 3460 

2 3 4 7 0 

15 

2 1940 

2 2 0 5 0 

2 2 2 70 

22280 

16 

2 1920 

2 2 17  0 

2 2 2 1 0 

222  30 

2 2 2 7 0 

Iff 

2 1450 

If  f $ 

2 1190 

J8 

2 14  10 

2 14  6 0 

2 1620 

2 19  10 

22260 

2 2 5 7 0 

22690 

M 

21200 

2 13  6 0 

2 1390 

2 3 7 20 

H 1 a 

23  190 

2 3 2 30 

Ml  b 

2 32  1 0 

2 3240 

Mlf 

23230 

2 3250 

M2  a 

2 3 2 0 0 

2 3 2 3 0 

M2  b 

2 3 220 

2 3240 

M2  f 

2 3 2 4 0 

2 3260 

Mismat  ch 

21320 

2 15  9 0 

Mismatchckl 

23170 

2 3530 

Mismatchck2 

2 3180 

2 3540 

Mis  mat  chc  k3 

2 3 2 5 0 

2 3 5 7 0 

Mismatchck4 

2 3260 

2 3580 

N 

20980 

2 1040 

N 3 

20650 

2 1440 

2 1530 

2 1 540 

2 1550 

2 1840 

21850 

2 1860 

22040 

22590 

2 2 7 0 0 

22  720 

22720 

22820 

2 2840 
22960 
2 3420 


2 1850 
22930 
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2 3 0 9 0 

2 3 0 9 0 

2 3 0 9 0 

2 3 110 

2 3 3 4 0 

2 3 3 4 0 

2 3 4 8 0 

2 3 4 8 f) 

N 8 

2 0 6 6 0 
2 2 7 2 0 
23340 

2 14  10 
2 2 8 2 0 
2 3480 

2 15  30 
2 2 9 3 0 
2 3 4 8 0 

2 15  4 0 
2 3 0 9 0 

2 15  5 0 
2 3 0 9 0 

2 2 7 0 0 
2 30  9 0 

2 2 7 1 0 
2 3 11  0 

2 2 7 2 0 
2 3 3 4 0 

P 

20990 

2 10  0 0 

2 10  0 0 

2 10  10 

2 1 0 1 0 

2 1020 

2 1020 

P$ 

207  1 0 

2 0 7 2 0 

2 0 7 2 0 

2 0 7 2 0 

PO 

20570 

23620 

2 1450 

2 14  8 0 

2 27  30 

2 3 2 8 0 

2 3 3 8 0 

2 3 4 9 0 

2 3 5 5 0 

PO$ 

2 13  3 0 

2 13  6 0 

2 13  7 0 

PI 

2 14  50 

2 1490 

2 15  3 0 

2 15  6 0 

2 1610 

2 17  7 0 

2 18  0 0 

2 1800 

P 2 

2 14  50 
2 1810 

2 1 500 

2 15  4 0 

2 15  6 0 

2 1570 

2 16  10 

2 1780 

2 1810 

P 3 

2 1450 

2 1510 

2 1 5 5 (3 

2 15  7 0 

2 16  10 

2 1790 

2 18  2 0 

2 1820 

P 4 

2 1400 

2 1420 

2 17  7 0 

2 17  7 0 

2 2 6 3 0 

P 5 

2 1400 

2 14  2 0 

2 17  8 0 

2 1780 

2 2 6 4 0 

P 6 

2 1400 

2 1420 

2 1790 

2 1790 

2 2 6 5 0 

P 7 

20790 

23480 

2 1400 

2 2 6 3 0 

2 2630 

2 3 0 9 0 

2 3 3 10 

2 3 3 4 0 

23420 

P 8 

20790 

23340 

2 1400 
2 34  30 

22640 
2 3480 

22640 

22820 

2 29  30 

23090 

2 3 3 2 0 

P 9 

20790 

2 1400 

22650 

2 2 6 5 0 

23090 

2 3 330 

2 3 4 4 0 

Pa  1 

2 1270 

Pa  2 

2 1270 

Pc  1 

2 1270 

P c 2 

2 1270 

Pc  3 

2 1270 

P c 4 

21270 

Pressure 

2 0 9 6 0 

2 10  10 

Q 

2 1980 

2 3 500 

Q ( 

20570 

2 1490 

2 1 500 

2 15  10 

2 1530 

2 1540 

2 15  5 0 

Q5 

2 1930 

2 1940 

2 2 0 7 0 

2 2 0 8 0 

22080 

22080 

22080 

22080 
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22080 

22  120 

22  120 

22120 

22120 

2 212  0 

22  120 

Qua 

20830 

20840 

20840 

2 1060 

2 1070 

2 10  7 0 

Qua  a 

20840 

2 15  8 0 

Qua  s 

21070 

2 1140 

S 

2 1850 

2 2280 

2 2500 

22  520 

S 1 

22720 

22800 

2 2 9 1 0 

2 3050 

2 3 110 

23160 

Se  1 

23110 

2 3 12  0 

2 3 1 30 

T 

20860 

20990 

20990 
2 10  3 0 

20990 

20990 

20990 

20990 

20990 

20990 

TO 

20970 

2 1020 

2 1020 

2 1020 

2 10  3 0 

2 1050 

T 1 

* 

2 1860 
22500 
2 3050 

2 1400 
2 1920 
2 2520 

2 14  2 0 
22  160 
22  590 

2 1730 
22160 
22590 

2 1730 
2 2 2 3 0 
22600 

21850 
22270 
2 2 700 

2 1850 
22480 
2 2 7 9 0 

2 1860 
22480 
2 2 900 

T 2 

* 

2 1590 
2 3 530 

20810 
2 1590 
2 3 5 4 0 

20820 
2 1740 
2 3540 

20820 
2 2 7 70 
2 3 5 7 0 

20830 
22880 
2 3 5 7 0 

20840 
2 3300 
2 3 580 

2 1180 
2 34  10 
23580 

2 1580 
2 3 5 3 0 

T 3 

* 

2 1180 

2 1050 
2 1590 

2 1060 
2 1740 

2 1100 
2 2 780 

2 1110 
22890 

2 1140 
2 3290 

2 1150 
2 3400 

2 1160 

T 4 

2 1420 
22810 

2 1740 
2 2920 

2 1740 
2 3050 

21750 

2 1840 

2 1840 

226  1 0 

22  7 1 0 

T7 

207  90 

2 1400 

22620 

22620 

2 2 7 20 

2 2830 

2 2 9 4 0 

T8 

20790 

22950 

2 1400 

2 2600 

22600 

22700 

22720 

22  720 

22850 

T9 

20790 

2 1400 

2 26  10 

2 26  1 0 

227  1 0 

Ta 

2 1090 

2 1100 

2 1110 

Td  1 

2 1100 

2 113  0 

Td  2 

2 1110 

2 1130 

Td  3 

2 1120 

2 1130 

Tde 1 ta 

2 1130 

2 1140 

Tn 

2 1140 

2 1150 

V2 

2 1400 

2 1420 

2 1760 

21760 

2 1850 

22620 

237 
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W1 

2 1400 

21420 

2 1800 

2 1800 

22660 

W2 

2 1400 

2 1420 

2 1810 

21810 

22670 

W3 

2 1400 

2 1420 

2 1820 

2 1820 

22680 

W 4 

20800 

2 1400 

22660 

22660 

23350 

23450 

W 5 

20800 

2 1400 

22670 

22670 

23360 

23460 

W6 

20800 

2 1400 

22680 

22680 

23370 

23470 

X3 

22270 

22290 

22320 

22350 

22350 

22360 

22360 

22380 

22380 

22380 

22400 

22400 

22420 

22420 

22440 

22440 

22450 

22470 

22470 

X4 

22280 

22470 

22360 

22360 

22380 

22380 

22400 

22420 

22440 

X8 

2 1400 

2 1590 

2 1610 

2 1630 

21680 

2 1730 

21760 

21760 

Y 1 

2 1560 

2 1590 

Y 1 a 

21270 

2 3530 

Ylb 

21270 

2 3580 

Ylc 

2 1270 

23540 

Yld 

2 1270 

23570 

Y 3 

2 1570 

2 1590 

21740 

2 1740 

Y 3c 

23520 

2 3530 

23540 

23560 

23570 

23580 

Z 

21400 

2 1470 

2 1470 

21490 

21500 

2 1510 

2 1530 

21540 

2 1550 

2 1690 

21690 

23160 

z( 

* 

20620 

20630 

20640 

20650 

20660 

2 1210 

21210 

2 12  10 

2 1 340 

2 2 7 70 

22780 

22790 

22800 

22810 

22820 

22840 

22860 

22880 

22890 

22900 

229  10 

22920 

22930 

22960 

22970 

23130 

2 3290 

23300 

233  10 

23320 

23330 

2 3340 

23350 

23360 

2 3370 

23400 

234  10 

23420 

23430 

2 3440 

23450 

23460 

2 3470 

23480 

23520 

23530 

2 3540 

2 3560 

23570 

23580 

23590 

2 3600 

23630 

2 3640 

23650 

23650 

23660 

23660 

23670 

23670 

Z 2 2 1 4 A 0 2 1830 

Z 8 2 36  90 

Z 9 20790 


238 
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23770  SUB  Out (Cl ,C$ ,G$ , H$ ,R$ ,E7 ,E8, Q(* ) , Aet  ,If f $ ) 

23780  OPTION  BASE  1 

23790  COM  F(* ) ,Z(* ) ,T1 , T2 , T3,Qr (*) ,Qi (* ) .Final (*) 

23800  COM  File, Flag 
23810  DIM  A $ [ 1 0 0 ] 

23820  PRINTER  IS  16 
23830  F 1 =F=Z( 1 , 37  ) 

23840  F2=Z(1,38) 

23830  F 3 = Z ( 1 , 39  ) 

23860  N 3 = Z ( 1,25) 

23870  N 8 = Z ( 1 ,40) 

23880  Fn=(F2-Fl ) / F 3+ 1 
23890  Q=FNS(4) 

23900  Startmeas : ! 

23910  INPUT  " CALIBRATION  FREQUENCY  NUMBER", Fr 
23920  F=Z(Fr,37) 

23930  FOR  P0=1  TO  2 

23940  ON  PO  GOTO  23970,24010 

23950  ! 

23960  ! 

23970  PRINT  "STARTING  PROGRAM  OUT" 

23980  1=1 
23990  N3  = Z( I , 25  ) 

24000  N8  = Z(I  ,40) 

24010  N=N  3*N  8*2 
24020  Z ( I , 3 1 ) =N 

24030  CALL  Me  a s ( C 1 , P 0 , E 7 , E 8 , Q ( * ) , I , Ae t ) ! MEASUREMENT  UNKNOWN  TEMP 
24040  NEXT  PO 
24050  1=1 

24060  Tlave=(Z(I , 3 )+Z(I ,9  ))/2  !AVE  VALUE  OF  T1 

24070  Z ( I , 5 2 ) = Z ( I , 35 )=Tx  = T 1 =T lave 

24080  T2ave=(Z(I , 1 )+Z(I,7))/2 

24090  Z ( I , 53  )=T2ave 

24  100  T3ave=(Z(I , 2 )+Z ( I ,8)  )/2 

24110  Z(I,19)=.77!  CRYO  SOURCE  ERROR 

24120  R9=T3ave/Tlave*ABS((Tlave-T2ave)/(T3ave-T2ave)) 

24130  Z( 1 , 20 )=Z( 1 , 19 )*R9*100/T3ave 
24140  Z ( I ,21 )=.5  ! AMB  S OURCE  ERROR 

24150  R8  = T2ave/Tlave*ABS(l-(Tlave-T2ave) / ( T 3a v e-T 2a ve  ) ) 

241  60  R9  = Z(  1 , 2 1 )/297  *1  00  !Dta/Ta=.l7 

24170  Z( 1 , 22 )=R8*R9 

24180  Z (I, 23)=. 01 
24  1 90  Z ( I , 54  ) = T 3a ve 

24200  IF  V AL ( I f f $ )>0  THEN  GOTO  24240 
24210  Ifreq=5 
24220  Bw=Z(l,55) 

24230  GOTO  24260 
24240  Ifreq=30 

242  50  B w = Z ( 1 , 56  ) 

24260  T4ave  = Z(I , 16 )= ( Z ( I , 5 ) + Z(I , 1 1 ) ) /2 
24270  T 7 = Z ( 1 ,41  )+Z(l  ,43) 

24280  T 8 = Z ( 1 , 42 )+Z ( 1 , 44  ) 

24290  T8=T8“2/N 
24300  S1  = (T7-T8)/(N-1  ) 
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24310  S1=S0R(S1) 

24  320  Z ( 1 , 1 3 ) = 3 * ( S 1 / S Q R ( N ) ) 

24330  Z ( I , 14 )=10*LGT((Tlave-290)/290) 

24340  Z(I,16)=T4ave 
24  3 50  0 = . 0 0 2 3 

2 4 360  Q0=1+Z( I , 16  ) / Z ( I , 52 ) !1+Te/Tx 

2437  0 01=1- Z (I, 5 3 )/Z (I, 52)  Jl-TA/TX 

2 4 380  Q2= ( Z( I , 5 4 )+Z ( I , 1 6 ) ) / ( Z( I , 5 4 )-Z ( I , 5 3 ) ) ! ! [ T S+T E ] / [ T S -T A ] 

24  3 90  Q3  = .23*(Q0-Q1*Q2  ) 

24400  Z ( I ,23)=. 01  iSOURCE  ERROR  PWR  RATIO 

244  10  Z(I,24)=Q3  ! % E R RO  R POWER  RATIO 

24420  Rnoisef  i«»=10*I,GT(l+T4ave/290  ) ! SYSTEM  N.F.  IN  dB 

24430  PRINT  "PAUSE  24500" 

24440  PAUSE 

2445  0 Z(I,17)=Rnoisefi!> 

24460  0 a i n = 7 . 244E l3*T2ave*Bw/ ( T 2 a v e +T  4 a v e ) 

24470  Gaindb= 10*LGT(Galn)  ! SYSTEM  GAIN  IN  dB 

24480  Z(I,18)=Gaindb 

2449  0 Nlin=(Tlave-T2ave)*(Tlave-T3ave)*Z(  1 , 27  )*100/Tlave 

24  500  Z ( 1 ,28)  = N I in  ! NON-LINE ARITY  %E  R ROR 

24  5 10  Z ( 1 , 32 ) = Z( 1 , 1 3 ) / Z ( 1 , 52  )*  1 00  ! % E R R 0 R 3*SEM 

24  5 20  A= 1 +T 4 a v o / T 1 a v e 

24530  B=l-T2ave/Tlave 

24540  C=(T3ave+T4ave) / (T3ave-T2ave) 

24  550  Z(  1 , 29  ) = . 2 3 * AB  S ( B ) * AB  S ( A- B * C ) ! % E R RO  R SWTCH  ASYMMETRY 

2456  0 Se  t = 1 

24  570  Z ( 1 , 2 6 ) = 0 ! TERROR  FOR  MISMATCH 

2 4 580  Isolator= . 02  58*ABS ( (T lave-T2ave ) /Tx)  + . 01 93*ABS ( (T lave-T3ave ) /Tx) 
TABS ( 1 4 3 . 6 * Z ( 1 , 6 1 ) /Tx  ) ! % E R R 0 R ISOLATOR 

2459  0 Z ( I , 59  ) = Isolator ! ERROR  IN  PERCENT 
2 4 600  Z( I , 60 ) = Z( I , 2 6 )+Z( I , 2 4 ) 

2 4 6 1 0 Z ( I , 3 0 ) = Z ( I , 2 0 ) +Z  ( I , 2 2 ) +Z  ( I , 2 4 ) +Z  ( I , 2 8 ) +Z  ( I , 5 9 ) +Z  ( 1 , 2 6 ) +Z  ( 1 , 2 9 ) 
24620  Z ( I , 33 ) = Z ( I , 32 )+Z ( I , 30 ) !SUM  OF  BIAS  +3SEM=L INEAR  SUM% 

24630  Z(1,36)=Z(1,30)  !BIAS  ERROR  SUM  % 

24640  Temp  = Tlave*Z( 1,30)  / 100 
24650  Templ=Temp/(Z(l,52)-290) 

24660  Temp2=l+ABS(Templ) 

24670  Z(I , 15 )=10*LGT(Temp2)  ! LINEAR  SUM  IN  DB 

24680  ! PRINT  PAGE 

24  6 90  Q = F N S ( 3 ) 

24700  REM  PRELIMINARY  RESULTS! 

247  1 0 A $ = " 

24  7 20  N = N 3 * N 8 * 2 
24730  PRINTER  IS  16 
24740  PRINT  PAGE 
24750  Q=FNS( 10) 

24760  PRINT  T AB ( 2 3 ) , "ME AS UREMENT  RECAP" 

24770  PRINT  T A B ( 3 0 ) , " AN D " 

24780  PRINT  TAB( 2 2 ), "PRELIMINARY  RESULTS" 

24790  Q=FNS(5 ) 

24800  IF  T 1 <2  20  THEN  GOTO  24830 

24810  PRINT  TAB( 6 ), "AVERAGE  VALUE  OF  Tx=";Tx 

24820  PRINT  T AB ( 6 ) , " E XC E S S NOISE  RATIO*" ; Z ( 1 , 1 4 ) 

24830  PRINT 

24840  PRINT  TAB ( 6 ) , " RADI OMETER  SYSTEM  TEMPERATURE-" ; Z( 1 , 1 6 ) 
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24850 
24860 
24870 
24880 
24890 
24900 
249  1 0 
24920 
24930 
24940 
24950 
24960 
24970 
24980 
24990 
25000 
25010 
25020 
25030 
25040 
25050 
25060 
25070 
25080 
25090 
25100 
25110 
25120 
25130 
25140 
25150 
25160 
25170 
25180 
25190 
25200 

252  10 
25220 
25230 
25240 
25250 
25260 
25270 
25280 
25290 
25300 

253  10 
25320 
25330 
25340 
25350 
25360 
25370 
25380 
25390 


PRINT  TAB(6) ."RADIOMETER  GAIN  dB=";Z(l,18) 

PRINT  TAB(6 ), "RADIOMETER  NOISE  BANDWIDTH  =";Bw;"MHZ" 

PRINT 

PRINT 

PRINT  TAB(6 ) ,"FREQUENCY=";F1 ; "MHZ  IF  FREQUENC Y=" ; I f r e q ; "MHZ " 

PRINT  TAB(28),"L.  0.  FREQUENC Y= "; F 1 

Z ( I , 5 8 ) = F 1 

PRINT 

PRINT  TAB(6),A$ 

Q = FN  S ( 2 ) 

PRINT  TAB( 1 1 ) , "TX" ; TAB( 2 1 ) , "SX" ; TAB( 34 ) , "TE" , " AVERAGE  TX" 

FIXED  2 

PRINT  TAB  ( 6 ) , " " 

PRINT  TAB(8),Z(I,3);TAB(20),Z(I,4);TAB(32),Z(I,5);(Z(I,3)+Z(I,9))/2 
PRINT  TAB (8 ) ,Z(I , 9 ) ; TAB( 20 ) ,Z(I , 10 ) ; TAB( 3 2 ) ,Z(I , 1 1 ) 

PRINT 

PRINT  TAB(6),"3  * SEM  FOR  ENTIRE  SET  OF  MEASUREMENTS  WAS  " ; Z ( I , 1 3 ) 
PRINT  TAB(6).A$ 

PRINT 
STANDARD 
N =N  9 = Z ( I , 31  ) 

PRINT  TAB ( 6 ) , " AVE  POWER  IN  MILLIWATTS  P1.P2.P3" 

PRINT  TAB(6) ,Z(I ,45)/N*1000,Z(I ,46)/N*1000,Z(I ,47 )/N*1000 
Y = Z(1 ,45)/Z(l  ,46) 

S1=SQR((Z(I , 48  ) - Z ( I ,45)*Z(I ,45)/N)/ (N-l  )) 

52  = SQR( ( Z(I ,49 )-Z(I ,46 )*Z(I ,46 )/N  )/ ( N — 1 ) ) 

53  = SQR((Z(I ,50)-Z(I ,47 )*Z(I ,47  )/N)/(N-l  )) 

FIXED  4 

PRINT  TAB(6),"SD  Pl,P2,P3  (#  OF  ME AS  = " ; N ; " ) " ; S 1 * 1 0 0 0 ; S 2 * 1 0 0 0 ; S 3 * 1 00 0 
PRINT  TAB(6 ) ,A$ 

PRINT 

PRINT  " AMBIENT  STANDARD  TEMPERATURE:  ";T2 

PRINT  " TRANSFER  STANDARD  TEMPERATURE:  ";T3 

PRINT  " STANDARDS  CK  1;2;3;4" 

PRINT  " ";Z(1  ,66) ,Z( 1 ,67 ) ,Z(1 ,68)  ,Z(1  ,69) 

PRINT  TAB(6 ) ,A$ 

PRINT 

PRINT  TAB( 6), "CUSTOMER:"; TAB ( 30  ),C$[1  ,29] 

PRINT  TAB(6 ), "CUSTOMER'S  ST AT I ON : " ; T AB ( 3 0 ) , C $ [ 3 0 , 5 9 ] 

PRINT  TAB(6) ."CUSTOMER'S  ADDRESS TAB ( 30  ),  C $[ 60 , 99  j 
PRINT 

PRINT  TAB(6  ) ."SOURCE  MANUFACTURER :"; TAB ( 30 ), G$ [ 1 , 39 ] 

PRINT  TAB( 6 ), "SOURCE  T YPE : " ; TAB ( 3 0 ) , G $ [ 4 0 , 7 9 ] 

PRINT  TAB(6 ), "SOURCE  MODEL : " ; T AB ( 3 0 ) , G $ [ 80 , 8 9 ] 

PRINT  TAB(6) ."SOURCE  SERI AL : " ; TAB ( 30 ) , G$ [ 90 , 99  ] 

PRINT 

PRINT  TAB ( 6 ) , "DATE  OF  C ALI BRATI ON : " ; T AB ( 3 0 ) , R $ [ 1 , 1 9 ] 

PRINT  TAB(6 ) ."CALIBRATION  TEST  # : " ; TAB ( 30  ) , R$ [ 20 , 39  ] 

PRINT  TAB(6),"REQ  OR  REF  # : " ; TAB ( 30 ) , R$ [ 40 , 69 ] 

PRINT 
Q = FN  S ( 8 ) 

PRINT  T AB ( 6 ) , A$ 

PRINT 

F=F+F3 

PRINTER  IS  16 
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25400  PRINT  " END  OF  MEASUREMENT  PRESS  CONTINUE  FOR  FULL  REPORT" 

25410  PAUSE 

25420  PRINTER  IS  16 


25430 

25440 

25450 

25460 

25470 

25480 

25490 

CALL  Report(P$,C$,G$,R$,H$,Fl , 

GOTO  Startmeas 

SUBEXIT 

SUBEND 

RE-SAVE  " PWRFL" 

! USES  HP I B ADDRESS  1003  FOR 
! USES  NEW  FLUKE  PWR  ROUTINE 

F 2 , F 3 , N 3 

! AUGUST 
SWITCH 

, N 8 , Q ( * 

5 1982 
DRIVERS 

) .Set) 
12  12 

GJC 

S Out  ( 

A 

24520 

24550 

A $ 

2381  0 

247  1 0 

24930 

2 5020 

25140 

25200 

25360 

Ae  t 

2 3770 

24030 

B 

24  530 

24550 

24550 

Bw 

24220 

24250 

24460 

24860 

C 

24  540 

24550 

c$ 

237  70 

25220 

2 5230 

25240 

25430 

Cl 

2 3 7 70 

24030 

E 7 

2 37  70 

24030 

E8 

23770 

24030 

F 

23830 

23920 

25380 

25380 

FI 

23830 

23880 

24890 

24900 

249  10 

25430 

F 2 

23840 

23880 

25430 

F 3 

23850 

23880 

2 5380 

25430 

Fn 

23880 

Fr 

239  1 0 

2 3920 

G $ 

23770 

2 5260 

25270 

25280 

25290 

25430 

Gain 

24460 

24470 

Ga i ndb 

24470 

24480 

H $ 

2 3770 

25430 

I 

23980 

2 3990 

24000 

24020 

24030 

24050 

24060  24060 
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24070 

24070 

24080 

24080 

24090 

24  100 

24100 

24  110 

24  140 

24  180 

24190 

24260 

24260 

24260 

24  330 

24  340 

24360 

24360 

24370 

24370 

24380 

24380 

24  380 

24  380 

24400 

244  1 0 

24450 

24480 

2 4 5 9 0 

24600 

24600 

24600 

24610 

24610 

246  1 0 

246  1 0 

246  1 0 

246  1 0 

24620 

24620 

24620 

24670 

249  10 

2 4 9 8 0 

24980 

2 4 9 8 0 

24980 

24980 

24990 

24990 

24990 

2 50  10 

25050 

2 5 0 7 0 

25070 

25070 

25090 
25  110 

25090 

2 5090 

25  100 

25100 

25  100 

25  110 

25  110 

If  f $ 

2 3 7 70 

24200 

I f r eq 

242  1 0 

24240 

24890 

Isolator 

24580 

24  590 

N 

240  1 0 

24020 

24290 

2 4 3 0 0 

24  320 

247  20 

2 5 0 5 0 

2 5070 

25070 

25130 

2 5070 

2 5 090 

2 5090 

2 5 10  0 

25100 

25  110 

25  110 

N 3 

2 3 860 

2 3 9 9 0 

24010 

247  20 

2 5430 

N 8 

2 3 8 7 0 

24000 

2401  0 

24720 

254  30 

N 9 

2 5050 

N 1 i n 

24490 

24  500 

P$ 

254  30 

PO 

2 3930 

2 3940 

24030 

24040 

Q 

23890 

2 4 3 5 0 

24690 

247  50 

2 4 7 9 0 

24940 

2 5 350 

Q ( 

23  7 70 

24030 

2 54  30 

QO 

24  360 

24390 

Q1 

24370 

2 4 3 90 

Q2 

2 4 380 

24  390 

Q3 

2 4 3 9 0 

244  10 

R$ 

2 3 7 70 

2 5 3 1 0 

25320 

2 5 3 30 

2 5430 

R8 

24  150 

24  1 70 

R9 

24  120 

24  1 30 

24  160 

24  170 

Rnoisef ig 

24420 

24450 

S 1 

24300 

24  3 1 0 

24  3 10 

2 4 3 2 0 

2 5090 

25  130 

S 2 

25100 

25  130 

243 


RAD7EF 


S3 

25110 

2 5 13  0 

Set 

24560 

254  30 

Startmeas : 

2 3 9 0 0 

2 5 4 4 0 

T 1 

* 

2 4 0 7 0 

2 4 800 

T 1 a v e 

24060 

24490 

24070 

24490 

24  120 
24520 

T 2 

* 

25  160 

T 2 a v e 

2 4 080 
2 4 4 6 0 

24090 

24490 

24  120 
24  5 30 

T 3 

* 

25  170 

T 3a  v e 

2 4 10  0 
24540 

24  120 
24580 

24  120 

T 4 a v e 

24260 

24  340 

2 4 4 2 0 

T 7 

2 4 2 7 0 

24  300 

T 8 

24280 

24290 

24290 

Temp 

2 4 6 4 0 

246  50 

Tempi 

2 46  50 

2 46  60 

Te  m p 2 

2 4 6 6 0 

2 4 6 7 0 

Tx 

24070 

24580 

2 4 5 8 0 

Y 

2 5080 

z( 

* 

24000 
2 4 0 9 0 
24  170 
24270 
2 4 3 6 0 
244  1 0 
24  5 50 
2 4 6 1 0 
2 4 6 2 0 
2 4 8 4 0 
24990 
2 5080 
2 5 110 

23830 
2 4 0 2 0 
2 4 10  0 
24  180 
24270 
2 4 3 7 0 
244  50 
24  5 70 
2 4 6 1 0 
24620 
24850 
24990 
2 5080 
25110 

2 3 840 
2 4 0 6 0 
2 4 10  0 
2 4 19  0 
24280 
24  370 
24480 
2 4 5 8 0 
246  1 0 
2 4 6 3 0 
2 4 9 1 0 
2 4 9 9 0 
2 5 0 9 0 
25110 

24  120 
24  530 

2 4 15  0 
24  580 

2 4 15  0 
24  580 

24  3 30 
24640 

24490 

24  120 
24  540 

2 4 15  0 
2 4 5 8 0 

24  150 

2 4 15  0 

24460 

24  1 30 

24  150 

24  190 

2 4 4 9 0 

24540 

24460 

24  520 

24  540 

24300 

24  580 

248  10 

2 3 8 5 0 

2 3 8 6 0 

2 3 8 7 0 

2 3 9 2 0 

2 3 9 9 0 

2 4 0 6 0 

2 4 0 7 0 

24070 

2 4 0 8 0 

24080 

24  110 

24  130 

24  130 

2 4 14  0 

24  160 

24  2 20 

2 4 2 5 0 

24260 

24260 

24260 

24280 

24320 

2 4 3 3 0 

24  340 

2 4 3 6 0 

24  380 

24380 

24  3 80 

24380 

24400 

2 4 4 9 0 

24  500 

24  5 1 0 

24  5 1 0 

2 4 5 1 0 

24  590 

2 4 6 0 0 

2 4 6 0 0 

2 4 6 0 0 

2 4 6 1 0 

2 4 6 1 0 

2 4 6 10 

246  1 0 

246  1 0 

2 4 6 2 0 

2 4 6 3 0 

2 4 6 4 0 

2 4 6 5 0 

2 4 6 7 0 

24820 

2 4 980 

2 4 9 8 0 

2 4 9 8 0 

24980 

24980 

2 50  1 0 

2 5 0 5 0 

2 5 0 7 0 

2 5070 

25070 

2 5090 

2 5 0 9 0 

25  100 

2 5 10  0 

25  100 

2 5 19  0 

2 5 19  0 

25190 

25  190 
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25500 
25510 
25520 
25530 
25540 
25550 
25560 
25570 
25580 
25590 
25600 
25610 
25620 
25630 
25640 
25650 
25660 
25670 
25680 
25690 
25700 
257  10 
25720 
25730 
25740 
257  50 
25760 
25770 
2 57  80 
25790 
25800 
25810 
25820 
25830 
25840 
25850 
25860 
25870 
25880 
25890 
25900 
259  10 
25920 
25930 
25940 
25950 
25960 
25970 
25980 
25990 
26000 
26010 
26020 
26030 


SUB  Power(Pl ,P2,P3,P0,Aet ,If f$) 

OPTION  BASE  1 

COM  F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*) 
COM  File, Flag 
DIM  Po ( 6 ) 

PRINTER  IS  16 


!Q=FNX(Q7 ) 


! 0 POWER  TO  MOUNT 
! CCONTROL 
! 0 POWER  TO  MOUNT 
! 0 POWER  TO  MOUNT 


Q = 0 

Pout  $ = "2" 

ON  Aet  GOTO  25600,25590 
ON  PO  GOTO  25600,25640 
OUTPUT  7 0 2 ; "0  " , " 1 " , " 7 " , " 3 " 

WAIT  50 

OUTPUT  70 2 ; "0 " , " 1 " , " > " , " 3 " 

GOTO  25670 

OUTPUT  70 2 ; "3  " , " 1 " , "7  " , " 3 " 

WAIT  50 

OUTPUT  702  ; "3"  , "1 "3" 

OUTPUT  1003 ; "8" , "8" , " ?" ,Pout$ , If f $ , "2" 

WAIT  50 

OUTPUT  1003 ; "8" ,"8" ,"0" ,"Pout$" , If f $ , "2"! CCONTROL 
WAIT  250 

OUTPUT  709; "C"  ! CLEAR  SCANNER 

OUTPUT  709; 15  ! CHANNEL  15 

OUTPUT  701; "VRF  2T2H0  ? " {VOLTS  FILTER  #SA 
ENTER  701; VO  {VALUE  OF  BRIDGE  POWER  OFF 
PRINT  "BRIDGE  PWR  OFF=";VO 
! OUTPUT  709; 16  ! CHANNEL  16 

! WAIT  300 

! OUTPUT  701 ; "VRF2S5?"  {OUTPUT  FLUKE 
! ENTER  701 ; V 1 {VALUE  OF  REF 

! PRINT  "VALUE  OF  REF=";V1 
! PAUSE 
OUTPUT  7 0 9 ; 17 
WAIT  300 

OUTPUT  701 ; "VRF2T2H0?" 

ENTER  7 01 ; V 3 {BRIDGE  -REF  WITH  NO  POWER 
PRINT  "BRIDGE  -REF  NO  PWR=";V3 
FOR  Loo  p= 1 TO  3 

ON  Loop  GOTO  25890,25910,25930 

Pout  $ = "2 " ! UNKNOWN  PORT 

GOTO  25940 

Pout  $ = "4 " ! AMBIENT  PORT 

GOTO  25940 


Pout  $ = "3"  ! TRANSFER  STD  PORT 

OUTPUT  100  3 ; "8" ,"8" ,"?" ,Pout$ , If f $ , "2" ! SYS , 2-4 , STR, PORT,  30  IF 
WAIT  50 

OUTPUT  1003 ; "8" ,"8" , "0" ,Pout$ , If f $ , "2" ! CC 
ON  Aet  GOTO  25990,25980 
ON  PO  GOTO  25990,26020 

OUTPUT  702 ; "0" , "0" , "7 " , "3"  {POWER  APPLIED  TO  MOUNT 

OUTPUT  702  ; "0"  ,"0" ,">","3"  {CCONTROL 
GOTO  26050 

OUTPUT  7 0 2 ; " 3 " , " 0 " , " 7 " , " 3 " {POWER  APPLIED  TO  MOUNT 

WAIT  50 
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26040  OUTPUT  7 0 2 ; " 3 " , " 0 " , " > " , " 3 " ! CCONTROL 

26050  WAIT  150 

26060  OUTPUT  7 0 1 ; " V RF 2 T 2 H 0 ? " 10UTPUT  FLUKE 
26070  ! WAIT  600 

26080  ENTER  7 0 1 ; V 4 ! ENTER  BRIDGE  -REF  WITH  POWER 

26090  PRINT  "BRIDGE  -REF  PWR=";V4 

26100  Po(Loop)=V4 

26110  NEXT  Loop 

26120  Pout$="0 " 

26130  OUTPUT  7 0 2 ; "0 " , " 1" , " 7 " , " 0 " 1POWER  REMOVED  FROM  MOUNT 
26140  WAIT  150 

26  1 50  OUTPUT  7 0 2 ; " 0,"  , " 1"  , " > " , " 0 " 

26  1 60  OUTPUT  1 0 0 3 ; "8  " , " 8 " , " ? " , P o ut  $ , I f f $ , " 2 " '.SET  PORT  TO  0 
26170  OUTPUT  1 0 0 3 ; " 8 " , " 8 " , " 0 " , P o ut $ , I f f $ , " 2 " ! CCONTROL 

26180  WAIT  150 

26190  OUTPUT  70 1 ; " VRF 2T 2H0 ? " 10UTPUT  FLUKE 

2 6 200  ENTER  7 0 1 ; V 5 ! RE CHECK  BRIDGE  -REF  PWR  OFF 

26210  PRINT  "BRIDGE  -REF  PWR  OFF";V5 

26220  OUTPUT  709  ; 1 5 

26230  WAIT  300 

26240  ! OUTPUT  701  ; "VRF2T2HO?"  10UTPUT  FLUKE 

26250  ! WAIT  600 

26260  ! ENTER  7 0 1 ; V 6 ! RE  CHE CK  BRIDGE  WITH  POWER  OFF 

6270  V6  = VO 

26280  DISP  "BRIDGE  NO  PWR";V6 
26290  ! 

26300  ! OUTPUT  POWER  FROM  VOLTAGE 

26310  ! 

26320  E 6 = V 0 +V  6 
26  3 30  DISP  " E 6 = " ; E 6 
26340  E 7 = ( V 3 +V  5 ) / 2 
26350  DISP  " E 7 = " ; E 7 
26360  FOR  1=4  TO  6 
26370  E8=E6-Po ( 1-3 )+E7 
26380  DISP  " E 8 = " ; E 8 
26390  E9  = Po ( 1-3  )-E7 
26400  DISP  "E  9 = " ; E 9 
26410  Po(I)=E8*E 9/200 
26420  NEXT  I 
26430  Pl=Po(4  ) 

26440  P2  = Po( 5 ) 

26450  P3=Po(6) 

26460  PRINTER  IS  0 
26470  SUBEND 

26480  RE-SAVE  "SUB  V " , 2 6 4 8 0 , 2 6 9 2 0 ! JAN  13  1982  1430 

S Po  we r ( 


Ae  t 

25500 

2 5 580 

2 5970 

E 6 

26320 

26  3 30 

26370 

E7 

26340 

2 6 3 50 

26370  26390 
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R \ D 7 E F 


E 8 

2 6 2 7 0 

2 6 2 8 0 

2 6 4 1 0 

E 9 

2 6 2 9 0 

2 6 400 

2 6 4 1 0 

I 

2 6 2 6 0 

2 6 2 7 0 

2 6 2 9 0 

2 6 4 1 0 

2 6 4 2 0 

I f f $ 

2 5 500 

2 5 6 7 0 

2 5 6 9 0 

2 5 9 4 0 

2 5 9 6 0 

26  160 

2 6 17  0 

Loon 

2 5 8 7 0 

2 5 8 8 0 

2 6 10  0 

2 6 110 

PO 

2 5 500 

2 5 590 

2 5 9 8 0 

PI 

2 5 500 

2 6 4 2 0 

P 2 

2 5 500 

2 6 4 4 0 

P 2 

2 5500 

2 6 4 5 0 

Po  ( 

2 5 540 

2 610  0 

26270 

2 6 3 9 0 

2 6 4 1 0 

2 6 4 3 0 

2 6 4 4 0 

2 6 4 5 0 

P o u t $ 

2 5 5 70 
26  160 

25670 
2 6 17  0 

25890 

259  1 0 

2 5 9 3 0 

25940 

2 5 9 6 0 

26  120 

Q 

2 5560 

VO 

25740 

2 57  50 

26270 

26320 

VI 

2 5 8 5 0 

2 5 8 6 0 

26340 

V 4 

26080 

26090 

26100 

V 5 

2 6200 

262  1 0 

26340 

V 6 

26270 

2 62  80 

2 6 3 2 0 
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26490 
26  500 
26  5 1 0 
26  520 
26530 
26540 
26550 
26560 

265  70 
26580 
26  590 
2 6 6 0 0 

266  1 0 
26620 
2 6 6 3 0 
26640 
26650 
26660 
26670 
26680 
26690 
26700 
2 6 7 1 0 
26720 
267  30 
26740 
267  50 
26760 
267  70 
26780 
26  7 90 
26800 
26810 
26820 
26830 
26840 
26850 
26860 
26870 
26880 
26890 
25900 
269  10 
26920 


Fr,Cc,C,Di) 


SUB  Volt(V(*),Fr,Cc,C(*)) 

PRINTER  IS  16 

OPTION  BASE  1 

COM  F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*) 

COM  File, Fla» 

OUTPUT  1 0 0 7 ; C 
CLEAR  1022 
FOR  1=20  TO  27 
OUTPUT  1007 ; I 
PRINT  I 
WAIT  50 
C =0 

CALL  Dmm ( V 1 , C( * ) 

V( 1-1 9 ) = V 1 
NEXT  I 

OUTPUT  9 ; " R" 

ENTER  9 ; Y $ 

PRINTER  IS  0 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
IMAGE 
PRINTER 
! PRINT 


"DATE  AND  TIME 


Y $ 


YEAR  1982 


F R E Q = ' 


MHZ  " 


IX  , "VOLTMETER  ZERO 
IX, "15  VOLT  SUPPLY 
VOLT  SUPPLY 
VOLT  SUPPLY 
VOLT  SUPPLY 
VOLT  SUPPLY 
VOLT  SUPPLY 
VOLT  SUPPLY 
VOLT  SUPPLY 
VOLT  SUPPLY 


IX 

IX 

IX 

IX 

IX 

IX 

IX 

IX 


, "20 
,"28 
, "28 
,"15 
, "28 
,"15 
,"15 
, "2  5 
IS  0 
USING 


CHECK  ",  2 1 X , DD . DDD , 5X , "CHANNEL  28" 
(PREAMP  2-4  )",  1 5X , DD . DDD , 5X , "CHANNEL  20" 
ANZAC  AMPS",  17X.DD . DDD. 5X  "CHANNEL  21" 


A V E N T E K 
AVENTEK 
S W . DR. 
TRAN  SCO 
SW.  DR. 
SW.  DR. 


WEINSCHEL  ATTN 


I",  18X,DD.DDD,5X, "CHANNEL  2 2 " 

II" , 17X, DD. DDD, 5 X," CHANNEL  23" 
TABLE", 1 4X, DD . DDD, 5X," CHANNEL  24" 
SWITCH" , 1 2X , DDD. DDD , 5X, "CHANNEL  25 
1 3 X, DD . DDD , 5X , "CHANNEL  26" 

1 3X,  DD*.  DDD  , 5X,  "CHANNEL  26" 

. 1 2X . DD . DDD , 5 X , "CHANNEL  27 1 


OUTPUT" 

OUTPUT" 


9810; V(9  ) 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

SUBEND 


USING 

USING 

USING 

USING 

USING 

USING 

USING 

USING 


26  7 30 
267  40 
267  50 
26760 
267  7 0 
26780 
26800 


V ( 1 ) 

V ( 2 ) 

V ( 3 ) 

V ( 4 ) 

V ( 5 ) 

V ( 6 ) 

V ( 7 ) 


268  1 0 ; V(8  ) 


2 6 9 3 0 

RE-SAVE  "DESCR" 

, 26930  , 

27080 

S V o 1 1 ( 

C 

26  540 

26600 

266  1 0 

c( 

26490 

266  1 0 

Cc 

26490 

266  1 0 

! J ANU ARY  1 5 1 982  0905 
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Di 

26610 

F 

26690 

Fr 

26490 

266  10 

I 

26560 

26570 

26580 

V( 

26490 

26900 

26620 
2691  0 

26840 

VI 

2661  0 

26620 

Y$ 

26650 

26690 

26620  26630 

26850  26860  26870  26880  26890 


249 


RAD7EF 


26940  SUB  Descr(P$,C$,G$,R$,H$,Fl , F 2 , F 3 , N 3 , N 8 , Q ( * ) ,Set) 

26950  COM  F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*) 

26960  COM  File, Flag 

26970  LINPUT  "DESCRIPTION  FILE  ME  AS+  Desc$ 

26980  MASS  STORAGE  IS  " :F8,1" 

26990  CREATE  Desc$,80 
27000  OUTPUT  9;"R" 

27010  ENTER  9;P$ 

27020  ASSIGN  #3  TO  Desc$ 

27030  PRINT  #3;P$,C$,G$,R$,H$,F1,F2,F3,N3,N8,C1,C2,Z(*),Q(*),F(*) 
27040  ASSIGN  it  3 TO  * 

27050  ASSIGN  it  3 TO  I)esc$ 

27060  READ  #3;P$,C$,G$,R$,H$,F1,F2,F3,N3,N8,C1,C2,Z(*),Q(*),F(*) 
27070  PRINT  P$;":1983" 

27080  SUBEND 

27090  RE-SAVE  " DMM " , 2 7 0 9 0 , 2 7 3 1 0 ! 2 1 JANUARY  1982  GJC  1330 


S De  s c r ( 


c$ 

26940 

2 7 0 3 0 

2 7060 

Cl 

27030 

27060 

C 2 

2 7 0 3 0 

2 7060 

De  s c $ 

269  70 

26990 

27020 

2 7 0 5 0 

F ( 

* 

2 7 0 3 0 

2 7060 

F 1 

26940 

2 7 0 3 0 

27060 

F 2 

26940 

2 7030 

27060 

F 3 

26940 

27030 

27060 

G $ 

26940 

2 7030 

2 7 0 6 0 

H $ 

26940 

2 7 0 3 0 

2 7060 

N 3 

26940 

2 7 0 3 0 

2 7 0 6 0 

N 8 

26940 

27030 

27060 

P$ 

2 6 9 4 0 

2 70  1 0 

27030 

27060  27070 

Q ( 

26940 

2 7030 

2 7060 

R$ 

26940 

2 7030 

2 7 0 6 0 

Set 

26940 

z( 

* 

2 7 0 3 0 

2 7 0 6 0 
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27100  SUB  Dmm (Vl,C(*),Fr,Cc,C,Di) 

27110  OPTION  BASE  1 

27  1 20  COM  F(*  ) ,Z (*)  ,T1 , T2 , T3 , Qr( *) ,Qi (*) .Final ( *) 

27  1 30  COM  File, Flag 

27  1 40  DIM  Rv$ ( 1 00  ) , Va ( 50  ) 

27150  MAT  Va=ZER 
27160  RESET  1022 
27  1 70  FOR  V = 1 TO  5 

27180  OUTPUT  1022;"S0  FI  Rl  T4  LI  RSI  SM020  QX1" 

27190  TRIGGER  1022 

27200  ENTER  1022  BINT  N OF ORM AT ; R v $ ( V ) 

27  2 10  STATUS  1 0 2 2 ; S 
27220  IF  S = 0 THEN  27  2 50 
27230  PRINT  "PAUSE  1720" 

27240  PAUSE 

27  250  Va(V  )=VAL(Rv$ (V  ) ) 

27260  NEXT  V 
27270  V 1 =S  UM ( Va ) / 5 
27280  MAT  Va=ZER 
27290  IF  C=0  THEN  27310 
27300  ! C(Cc,Di,Fr)=Vl 
27310  SUBEND 

27  320  RE-SAVE  "SUB  Vt  : F 8 , 1"  , 2 7 3 2 0 , 2 7 6 8 0 !JUNE  1 , 1 982  1 545  GJC 

S Dmm  ( 


c 

27  100 

2 7 290 

C( 

27  100 

Cc 

27  100 

Di 

27  100 

Fr 

27  100 

Rv $ ( 

27  140 

2 7200 

27  2 50 

S 

272  10 

2 7 2 20 

V 

27  170 

2 7200 

272  50 

27250 

27260 

VI 

27  100 

2 72  70 

Va  ( 

27  140 

27150 

2 7 2 50 

2 72  70 

27280 
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273  3 0 SUB  V t ( C ( * ) , F r , C c , C , Di , Mean, Ret) 

27340  OPTION  BASE  1 

27  350  COM  F (*),  Z (*), T1 , T2 , T3 , Qr (*)  ,Qi (*),  Final (*  ) 

27  360  COM  File, Flag 
27370  DIM  I n $ [ 1 2 8 ] , 0 u t ( 3 2 ) 

27  380  IF  Re  t > 1 THEN  GOTO  27  4 1 0 

27390  OUTPUT  1 0 2 2 ; "P 1 F 1 R 4 0 S TD  10STI32  STNS01T3" 
27400  GOTO  27420 

27410  OUTPUT  1 0 2 2 ; " P 1 F 1 R 3 0 S T D FL1  10STI32  STNS01T3" 
27420  ENTER  1022  BFHS  128  NOFORMAT ; In$ 

27430  CALL  Un pk 5 6 ( I n $ , Ou t ( * ) ) 

27440  FOR  1=1  TO  32 

27450  ! PRINT  "NUMBER" ; I , "VOLT AGE  RE ADING " ; Out ( I ) 

27460  NEXT  I 

27470  M ean  = SUM(Out  ) / 3 2 

27480  PRINT  Mean 

27490  IF  C = 0 THEN  GOTO  26980 

27500  C(Di,Fr,Cc) =M e a n 

27510  SUBEXIT 

27520  SUBEND 

S Vt  ( 


c 

2 7 3 3 0 

2 7490 

C( 

27  3 30 

2 7 500 

Cc 

27  330 

2 7 5 0 0 

Di 

27  330 

2 7 5 0 0 

Fr 

27  3 30 

27  500 

I 

2 7 4 4 0 

2 7460 

In  $ 

2 7 370 

27420 

2 7 4 30 

Mean 

2 7 330 

2 7470 

2 7480 

Out  ( 

2 7 3 70 

2 7430 

2 7470 

Re  t 

2 7 330 

2 7 380 

2 7 500 
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27530  SUB  Unpk56(In$,0ut(*)) 

27  540  INTEGER  N , J , I , B 1 , B 2 , B 3 , B 4 
27550  N=LEN (In$ ) 

2755  0 J = 0 

27570  FOR  1=1  TO  N STEP  4 
27580  J = J + 1 
2 7 590  B 1 =NUM ( I n $ [ I ] ) 

27600  3 2 =N  UM ( I n $ [1  + 1 1 ) 

276  1 0 B 3 = N U M ( I n $ [ 1+2 ] ) 

27620  B4=N'JM(  In$  [ 1 + 3 ] ) 

27  6 30  Out  (J  )=.  l*BIT(Bl  ,0)  + .01*S!IIFT(B2,4)  + .001*  B IN  AN  D ( B 2 , 15) 

+ . 00  01 *SHIFT (B3 , 4 ) + . 00  001  * BIN AND (B3 , 15  ) + . 000  00 1 *SHIFT( B4 , 4 ) 
+ . 0 0 0000  1 * BIN AND ( B4 , 1 5 ) 

27640  Out(J)=Out(J)*(l-2*BIT(Bl,l))*10~((l-2*BIT(Bl,7)) 

* SH IF  T ( B IN AND ( B 1 , 1 2 4 ) , 2 ) ) 

27650  NEXT  I 
27660  RESET  1022 
27670  SUBEXIT 
27680  SUBEND 


S U n p k 5 6 ( 


B 1 

2 7 540 

2 7 590 

27630 

2 7640 

2 7640 

27640 

B 2 

2 7 540 

2 7 600 

27630 

2 7 6 3 0 

B 3 

2 7 540 

2 76  1 0 

2 7630 

2 7630 

B 4 

2 7 5 4 0 

2 7620 

27  630 

2 7 6 30 

I 

27  540 

2 7 5 70 

27  590 

2 7 6 0 0 

2 76  1 0 

2 7 6 2 0 

2 7650 

I n $ 

2 7 5 30 

2 7 5 50 

2 7 5 9 0 

2 7600 

276  1 0 

27620 

J 

27540 

2 7 560 

2 7 5 8 0 

2 7 5 8 0 

27630 

27640 

2 7 6 4 0 

N 

27  540 

2 7 5 50 

2 7 5 70 

Out  ( 

2 7 5 30 

2 7 6 3 0 

2 7 640 

2 7640 
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GLOBAL  NAMES 


* F ( 

60 

910 

10  10 

1110 

12  80 

1370 

83  30 

8940 

9650 

1 02  50 

10500 

1 0850 

112  7 0 

12  110 

1 2200 

1 2 790 

1 3360 

1 37  70 

1 3860 

1 5800 

17  010 

19150 

1 9640 

20590 

2 3 7 9 0 

2 5 520 

2 6 5 20 

2 6 9 5 0 

27  120 

2 7 3 5 0 

* File 

70 

920 

1020 

112  0 

1290 

1 3 80 

8 3 40 

89  50 

9 6 60 

1 0 2 6 0 

10510 

10  8 6 0 

1 1280 

12  120 

12210 

1 2 800 

1 3 3 7 0 

1 37  80 

1 3 8 7 0 

15810 

1 7 0 2 0 

1916  0 

1 9650 

20600 

2 3 8 0 0 

2 5 5 3 0 

2 6 5 3 0 

2 6 9 6 0 

2 7 13  0 

2 7 3 6 0 

* F i n a 1 ( 

6 0 

9 1 0 

1010 

1110 

12  80 

13  70 

8 3 30 

8940 

9 6 50 

1 0250 

1 0 5 0 0 

10  8 5 0 

112  7 0 

12  110 

1 2200 

1 2 790 

1 3 3 6 0 

1 3 7 70 

1 3 8 6 0 

1 5 800 

17  010 

19  150 

1 9640 

20590 

2 3 7 9 0 

2 5 5 2 0 

26520 

26950 

2 7 12  0 

2 7 3 50 

* Flag 

70 

920 

1020 

1 120 

1290 

1380 

8340 

8950 

9660 

10260 

10510 

10860 

11280 

12  120 

122  10 

1 2800 

1 3 370 

1 3780 

1 3 8 7 0 

15810 

1 7 0 2 0 

19  160 

1 9 6 50 

2 0 6 0 0 

2 3 800 

2 5 530 

2 6 5 30 

26960 

27  130 

27  360 

* Q i ( 

60 

910 

1010 

1110 

1280 

1370 

8 3 30 

8 9 4 0 

96  50 

1 0250 

10  5 00 

1 08  50 

112  7 0 

12  110 

1 2200 

1 2 790 

1 3 360 

1 3 7 70 

1 3 8 6 0 

1 5 8 0 0 

17010 

19  15  0 

1 9640 

20590 

2 3790 

2 5 520 

2 6 5 2 0 

2 69  50 

27  120 

2 7 3 50 

O' 

* 

6 0 

9 1 0 

1010 

1110 

1280 

1370 

83  30 

8940 

9 6 50 

1 02  50 

10500 

10850 

11270 

12  110 

1 2200 

1 2 790 

1 3 3 6 0 

1 3 7 7 0 

1 3860 

1 5800 

17010 

19150 

1 9640 

2 0 5 9 0 

2 3790 

2 5 5 20 

2 6 5 2 0 

2 6 9 5 0 

27120 

2 7 3 50 

* Tl 

60 

910 

1010 

1110 

1280 

1370 

8 3 30 

8 94  0 

9650 

102 

1 3 5 4 0 

1 3800 

FN!{  ( 

11240 

5 3 10 

FNI  ( 

1 2080 

4910 

FNL  ( 

12  180 

5030 

FNN  ( 

990 

FNO  ( 

1090 

1 9900 

1 99  50 

20000 

20050 

20  100 

20  1 50 

20200 

20250 

20300 

FNS  ( 

1260 

600 

1 190 

1 4690 

1 5 8 9 0 

1 6370 

1 6390 

1 6450 

1 7 760 

1 9920 

1 99  70 

20020 

2 0 0 7 0 

20120 

20170 

2 0 2 2 0 

20270 

20  350 

20  3 70 

2 0 4 2 0 

2 1980 

2 3890 

24690 

247  50 

2 4 7 9 0 

2 4 9 4 0 

2 5 3 5 0 

FNT  ( 

1 3 340 

5640 

72  10 
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FNU  ( 

137  50 

S 

Cal  ( 

1350 

690 

750 

s 

Corr 1 ( 

1 3 840 

16050 

s 

Co  r r 2 ( 

1 5 7 80 

720 

s 

De  s c r ( 

26940 

840 

1 9 0 9 0 

s 

Dmm  ( 

27  100 

3620 

266  10 

s 

Freq  ( 

19  130 

3840 

2 1 360 

s 

Get  parameter 

1 9620 

640 

s 

M e a s ( 

20570 

24030 

s 

Out  ( 

23770 

790 

s 

Po we  r ( 

25500 

3 30 

14250  21450 

s 

ReDo  r t ( 

16990 

2 5430 

s 

Unpk  56  ( 

27  5 30 

27430 

s 

Volt  ( 

26490 

160 

s 

Vt( 

27  3 30 
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